23 lines
355 B
Haskell
23 lines
355 B
Haskell
|
|
||
|
|
module Pretty
|
||
|
|
( module Pretty
|
||
|
|
, module Text.PrettyPrint
|
||
|
|
)
|
||
|
|
where
|
||
|
|
|
||
|
|
import Data.Text
|
||
|
|
|
||
|
|
import Text.PrettyPrint hiding ((<>))
|
||
|
|
|
||
|
|
newtype PP a = PP { unPP :: a }
|
||
|
|
|
||
|
|
instance Pretty a => Show (PP a) where
|
||
|
|
show = show . pp . unPP
|
||
|
|
|
||
|
|
class Pretty p where
|
||
|
|
pp :: p -> Doc
|
||
|
|
|
||
|
|
instance Pretty Text where
|
||
|
|
pp = text . unpack
|
||
|
|
|
||
|
|
wrap [l, r] a = hang (hang l 2 r) 0 r
|