@@ -30,7 +30,9 @@ writeRel = writeHTML . relationAsHTML
3030tupleAsHTML :: RelationTuple -> Text
3131tupleAsHTML tuple = "<tr>" `append` T.concat (L.map tupleFrag (tupleAssocs tuple)) `append` "</tr>"
3232 where
33− tupleFrag tup = "<td>" `append` atomToText (snd tup) `append` "</td>"
33+ tupleFrag tup = "<td>" `append` atomAsHTML (snd tup) `append` "</td>"
34+ atomAsHTML (RelationAtom rel) = relationAsHTML rel
35+ atomAsHTML atom = atomToText atom
3436
3537tupleSetAsHTML :: RelationTupleSet -> Text
3638tupleSetAsHTML tupSet = foldr folder "" (asList tupSet)