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

showUnqualifiedPage is now in Doc.hs.

Browse Source
This commit is contained in:
Kazu Yamamoto
2013-07-14 17:07:30 +09:00
parent cbcbae052b
commit 1cd83ce2e0
5 changed files with 43 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Language/Haskell/GhcMod/ErrMsg.hs
View File

@@ -14,6 +14,7 @@ import DynFlags
import ErrUtils
import GHC
import HscTypes
import Language.Haskell.GhcMod.Doc (showUnqualifiedPage)
import qualified Language.Haskell.GhcMod.Gap as Gap
import Outputable
import System.FilePath (normalise)
@@ -72,7 +73,7 @@ ppMsg spn sev dflag msg = prefix ++ cts ++ "\0"
----------------------------------------------------------------
showMsg :: DynFlags -> SDoc -> String
showMsg dflag sdoc = map toNull $ Gap.showUnqualifiedPage dflag sdoc
showMsg dflag sdoc = map toNull $ showUnqualifiedPage dflag sdoc
where
toNull '\n' = '\0'
toNull x = x