hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Some pretty printing "improvements" (hopefully)

Browse Source
This commit is contained in:
Daniel Gröber 2015-08-18 04:54:10 +02:00
parent f7149ba23f
commit 90b1e452e2
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Language/Haskell/GhcMod/Pretty.hs
View File

@ -55,11 +55,16 @@ fnDoc :: FilePath -> Doc
fnDoc = doubleQuotes . text fnDoc = doubleQuotes . text
showDoc :: Show a => a -> Doc showDoc :: Show a => a -> Doc
showDoc = text . show showDoc = strLnDoc . show
warnDoc :: Doc -> Doc warnDoc :: Doc -> Doc
warnDoc d = text "Warning" <+>: d warnDoc d = text "Warning" <+>: d
strLnDoc :: String -> Doc
strLnDoc str = doc (dropWhileEnd isSpace str)
where
doc = lines >>> map text >>> foldr ($+$) empty
strDoc :: String -> Doc strDoc :: String -> Doc
strDoc str = doc (dropWhileEnd isSpace str) strDoc str = doc (dropWhileEnd isSpace str)
where where