lib: pprint
This commit is contained in:
parent
72bdce39b6
commit
4179a83c1d
@ -35,6 +35,9 @@ ppShow :: Show a => a -> String
|
|||||||
ppShow = show
|
ppShow = show
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
pprint :: Show a => a -> IO ()
|
||||||
|
pprint = putStrLn . ppShow
|
||||||
|
|
||||||
|
|
||||||
-- | Trace (print on stdout at runtime) a showable value.
|
-- | Trace (print on stdout at runtime) a showable value.
|
||||||
-- (for easily tracing in the middle of a complex expression)
|
-- (for easily tracing in the middle of a complex expression)
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user