Merge pull request #40 from eagletmt/fix-syntax-error
fix syntax error when __GLASGOW_HASKELL__ >= 702
This commit is contained in:
commit
b78b3bb28d
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user