@@ -6,12 +6,10 @@ import ProjectM36.AtomType
66import ProjectM36.Tuple
77import ProjectM36.Relation
88import ProjectM36.Attribute
9−import ProjectM36.ConcreteTypeRep
109import qualified Data.List as L
1110import qualified Data.Text as T
1211import qualified Data.Vector as V
13−import qualified Data.Map as M
14−import Data.Typeable (cast, tyConName, splitTyConApp)
12+import Data.Typeable
1513
1614boxV :: StringType
1715boxV = "│"
@@ -88,7 +86,7 @@ relationAsTable rel@(Relation _ tupleSet) = (header, body)
8886 where
8987 oAttrs = orderedAttributes rel
9088 oAttrNames = orderedAttributeNames rel
91− header = map attributeAsCell oAttrs
89+ header = map prettyAttribute oAttrs
9290 body :: [[Cell]]
9391 body = L.foldl' tupleFolder [] (asList tupleSet)
9492 tupleFolder acc tuple = acc ++ [map (\attrName -> case atomForAttributeName attrName tuple of