git.iko.soy/project-m36
on master help sign in
fix missing atomAsHTML types
commit2f2b8a937f2e53822f19d4ce4cbbf430542fdb05 authorAgentM <agentm@themactionfaction.com> dateTue 6 Oct 2015, 22:41 (11 years ago) parentdeb298b
1 file changed+2
compare with master
unifiedsplit
ProjectM36/Relation/Show/HTML.hs+2
ProjectM36/Relation/Show/HTML.hs+2
@@ -33,6 +33,8 @@ atomAsHTML (IntAtom int) = pack (show int)
3333atomAsHTML (RelationAtom rel) = relationAsHTML rel
3434atomAsHTML (BoolAtom bool) = pack (show bool)
3535atomAsHTML (DateTimeAtom dt) = pack (show dt)
36+atomAsHTML (DoubleAtom d) = pack (show d)
37+atomAsHTML (DateAtom d) = pack (show d)
3638
3739tupleAsHTML :: RelationTuple -> Text
3840tupleAsHTML tuple = "<tr>" `append` T.concat (L.map tupleFrag (tupleSortedAssocs tuple)) `append` "</tr>"