fix stale HashSet reference
commit01fc49c28f0cd0d37c8feb8f471a015c3a211ce5
authorAgentM <agentm@themactionfaction.com>
dateTue 6 Oct 2015, 22:29 (11 years ago)
parent7fe0508
ProjectM36/Relation/Show/HTML.hs+1−1
@@ -40,6 +40,6 @@ tupleAsHTML tuple = "<tr>" `append` T.concat (L.map tupleFrag (tupleSortedAssocs
4040 tupleFrag tup = "<td>" `append` atomAsHTML (snd tup) `append` "</td>"
4141
4242tupleSetAsHTML :: RelationTupleSet -> Text
43−tupleSetAsHTML tupSet = HS.foldr folder "" tupSet
43+tupleSetAsHTML tupSet = foldr folder "" (asList tupSet)
4444 where
4545 folder tuple acc = acc `append` tupleAsHTML tuple