We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 226a108 commit df857e5Copy full SHA for df857e5
copilot-theorem/src/Copilot/Theorem/Kind2/Output.hs
@@ -19,9 +19,9 @@ parseOutput :: String -- ^ Property whose validity is being checked.
19
parseOutput prop xml = fromJust $ do
20
root <- parseXMLDoc xml
21
case findAnswer . findPropTag $ root of
22
- "valid" -> return (Output Valid [])
+ "valid" -> return (Output Valid [])
23
"falsifiable" -> return (Output Invalid [])
24
- s -> err $ "Unrecognized status : " ++ s
+ s -> err $ "Unrecognized status : " ++ s
25
26
where
27
0 commit comments