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

Style hack to pass a test.

Browse Source
This commit is contained in:
Kazu Yamamoto 2013-03-13 11:07:43 +09:00
parent 9226c5e741
commit 85ab14975d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ErrMsg.hs
View File

@ -67,7 +67,7 @@ ppMsg spn sev dflag msg = fromMaybe def $ do
---------------------------------------------------------------- ----------------------------------------------------------------
showMsg :: DynFlags -> SDoc -> String showMsg :: DynFlags -> SDoc -> String
showMsg dflag sdoc = map toNull $ showQualifiedPage dflag sdoc showMsg dflag sdoc = map toNull $ showUnqualifiedPage dflag sdoc
where where
toNull '\n' = '\0' toNull '\n' = '\0'
toNull x = x toNull x = x