Commit a6744649 authored by AVANZINI Martin's avatar AVANZINI Martin
Browse files

sec 7.0, 7.1

parent b5fa2314
......@@ -12,7 +12,9 @@ import qualified Text.PrettyPrint.ANSI.Leijen as PP
-- render pretty
renderPretty :: PP.Pretty e => e -> String
renderPretty d = PP.displayS (PP.renderSmart 1.0 120 (PP.pretty d)) ""
-- TODO
renderPretty d = ""
-- renderPretty d = PP.displayS (PP.renderSmart 1.0 120 (PP.pretty d)) ""
hPutPrettyLn :: PP.Pretty e => IO.Handle -> e -> IO ()
hPutPrettyLn h = IO.hPutStrLn h . renderPretty
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment