@@ -95,7 +95,7 @@ showAtom :: Atom -> StringType
9595showAtom (StringAtom atom) = atom
9696showAtom (IntAtom atom) = T.pack $ show atom
9797showAtom (RelationAtom rel) = renderTable $ relationAsTable rel
98−showAtom (BoolAtom bool) = T.pack $ show bool
98+showAtom (BoolAtom bool) = T.pack $ if bool then "t" else "f"
9999showAtom (DateTimeAtom dt) = T.pack $ show dt
100100showAtom (DateAtom d) = T.pack $ show d
101101showAtom (DoubleAtom d) = T.pack $ show d