add special handling for atomAsHTML (TextAtom) to handle UTF-8 without escaping
related to #244
commit2470f62d2195a599f2845fcab147bf29ff81719a
authorAgentM <agentm@themactionfaction.com>
dateMon 1 Jul 2019, 21:30 (7 years ago)
parente62b68f
src/lib/ProjectM36/Relation/Show/HTML.hs+1
@@ -51,6 +51,7 @@ tupleAsHTML tuple = "<tr>" <> T.concat (L.map tupleFrag (tupleAssocs tuple)) <>
5151 where
5252 tupleFrag tup = "<td>" <> atomAsHTML (snd tup) <> "</td>"
5353 atomAsHTML (RelationAtom rel) = relationAsHTML rel
54+ atomAsHTML (TextAtom t) = """ <> t <> """
5455 atomAsHTML atom = atomToText atom
5556
5657tupleSetAsHTML :: RelationTupleSet -> Text