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
commit b78b3bb28d

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