Commit 44768447 authored by Joshua Moerman's avatar Joshua Moerman
Browse files

Adds some more brackets

parent 924e4ace
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
......@@ -54,8 +54,8 @@ simplify = cata alg where
prettyPrint :: (Bool -> a -> String) -> NuLTL a -> String
prettyPrint show = cata alg where
brackets s = "(" ++ s ++ ")"
alg (Literal a) = show True a
alg (NLiteral a) = show False a
alg (Literal a) = brackets $ show True a
alg (NLiteral a) = brackets $ show False a
alg TRUE = "TRUE"
alg FALSE = "FALSE"
alg (AND s1 s2) = brackets $ s1 ++ " & " ++ s2
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment