16 lines
497 B
Haskell
16 lines
497 B
Haskell
module Pretty where
|
|
|
|
import Text.Show.Pretty (ppShow)
|
|
import Language.Haskell.HsColour
|
|
import Language.Haskell.HsColour.Colourise
|
|
import ClassyPrelude
|
|
|
|
cpprint :: (MonadIO m, Show a) => a -> m ()
|
|
cpprint = putStrLn . pack . hscolour TTY defaultColourPrefs False False "" False . ppShow
|
|
|
|
cprint :: (MonadIO m, Show a) => a -> m ()
|
|
cprint = putStrLn . pack . hscolour TTY defaultColourPrefs False False "" False . show
|
|
|
|
pprint :: (MonadIO m, Show a) => a -> m ()
|
|
pprint = putStrLn . pack . ppShow
|