diff --git a/Main.hs b/Main.hs index 9421ae3..1d75a66 100644 --- a/Main.hs +++ b/Main.hs @@ -263,12 +263,12 @@ truthtable s = open <> header <> "\\hline\n" <> body <> close line assignments = intercalate " & " (bools assignments) <> - " & " <> - intercalate " & " (parts assignments) <> - " \\\\\n" + " &" <> + intercalate "&" (parts assignments) <> + "\\\\\n" bools assignments = [if bool then "1" else "0" | (key, bool) <- assignments] parts assignments = - (\xs -> [[x] | x <- filter (\i -> i /= ' ') xs]) $ + (\xs -> [if x /= ' ' then [' ', x, ' '] else " " | x <- xs]) $ fromJust $ serializeLatexTruthTableRow assignments s