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

fix syntax error when __GLASGOW_HASKELL__ >= 702

Browse Source
This commit is contained in:
eagletmt 2012-02-09 15:28:59 +09:00
parent e8a494d426
commit 8ff7b4c156
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

@ -58,7 +58,7 @@ ppErrMsg err = ppMsg spn msg defaultUserStyle ++ ext
ppMsg :: SrcSpan -> Message -> PprStyle -> String ppMsg :: SrcSpan -> Message -> PprStyle -> String
#if __GLASGOW_HASKELL__ >= 702 #if __GLASGOW_HASKELL__ >= 702
ppMsg (UnhelpfulSpan _) _ _ = undefined ppMsg (UnhelpfulSpan _) _ _ = undefined
ppMsg (RealSrcSpan src) msg _ = undefined ppMsg (RealSrcSpan src) msg stl
#else #else
ppMsg src msg stl ppMsg src msg stl
#endif #endif