@@ -81,8 +81,7 @@ import Data.String
81import Control.Monad.State
81import Control.Monad.State
82import Data.Char (isSpace)
82import Data.Char (isSpace)
85− RenderState a = RenderState{
84+data RenderState a = RenderState{
86 output :: [a] -- ^ In reverse order
85 output :: [a] -- ^ In reverse order
87 , prefix :: String
86 , prefix :: String
88 , usePrefix :: Bool
87 , usePrefix :: Bool