fix extraneous quoting in terminal display
commit278cb139b8c460acf49d558b345ad2335089dc09
authorAgentM <agentm@themactionfaction.com>
dateWed 14 Oct 2015, 21:56 (11 years ago)
parentca72287
ProjectM36/Relation/Show/Term.hs+1−1
@@ -94,7 +94,7 @@ relationAsTable rel@(Relation _ tupleSet) = (header, body)
9494showAtom :: Atom -> StringType
9595showAtom (Atom atom) = case cast atom of
9696 Just rel -> renderTable $ relationAsTable rel
97− Nothing -> T.pack $ show atom
97+ Nothing -> toText atom
9898
9999renderTable :: Table -> StringType
100100renderTable table = renderHeader table (fst cellLocs) `T.append` renderBody (snd table) cellLocs