add special handling of dataFrameAsHTML for TextAtom to show UTF-8 text without escaping
relates to #244
commitbc3997f00eaeff4256585bbae0905cd3826e4415
authorAgentM <agentm@themactionfaction.com>
dateMon 1 Jul 2019, 21:55 (7 years ago)
parent2470f62
src/lib/ProjectM36/DataFrame.hs+1
@@ -161,6 +161,7 @@ tupleAsHTML tuple = "<tr>" <> T.concat (L.map tupleFrag (tupleAssocs tuple)) <>
161161 where
162162 tupleFrag tup = "<td>" <> atomAsHTML (snd tup) <> "</td>"
163163 atomAsHTML (RelationAtom rel) = RelHTML.relationAsHTML rel
164+ atomAsHTML (TextAtom t) = """ <> t <> """
164165 atomAsHTML atom = atomToText atom
165166
166167attributesAsHTML :: Attributes -> [AttributeOrder] -> T.Text