@@ -172,14 +172,14 @@ data PP
172172 | None
173173 deriving (Eq)
174174
175−pp :: Pretty a => PP -> a -> AST Rendered
175+pp :: (Pretty a, Show a) => PP -> a -> AST Rendered
176176pp i x
177177 | i == Indent = result (reformat johanTibell Nothing p)
178178 | otherwise = pure p
179179 where
180180 result = hoistEither . bimap e Build.toLazyText
181181
182− e = flip mappend (", when formatting: " <> p) . LText.pack
182+ e = flip mappend ("\nSyntax:\n" <> p <> "\nAST:\n" <> LText.pack (show x)) . LText.pack
183183
184184 p = LText.dropWhile isSpace
185185 . LText.pack