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

Merge pull request #40 from eagletmt/fix-syntax-error 

fix syntax error when __GLASGOW_HASKELL__ >= 702
This commit is contained in:
Kazu Yamamoto 2012-02-08 22:49:03 -08:00
parent e8a494d426 8ff7b4c156
commit b78b3bb28d
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
#if __GLASGOW_HASKELL__ >= 702
ppMsg (UnhelpfulSpan _) _ _ = undefined
ppMsg (RealSrcSpan src) msg _ = undefined
ppMsg (RealSrcSpan src) msg stl
#else
ppMsg src msg stl
#endif