@@ -104,10 +104,7 @@ data D = Text Int String
104 deriving (Show)
104 deriving (Show)
106newtype Doc = Doc { unDoc :: Seq D }
106newtype Doc = Doc { unDoc :: Seq D }
107− deriving (Monoid)
107+ deriving (Monoid, Show)
109−instance Show Doc where
110− show = render Nothing
112instance IsString Doc where
109instance IsString Doc where
113 fromString = text
110 fromString = text