From 8ff7b4c1567f8eb0ebf4416e9d2056dd1bcd307c Mon Sep 17 00:00:00 2001
From: eagletmt <eagletmt@gmail.com>
Date: Thu, 9 Feb 2012 15:28:59 +0900
Subject: [PATCH] fix syntax error when __GLASGOW_HASKELL__ >= 702

---
 ErrMsg.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ErrMsg.hs b/ErrMsg.hs
index 8742622..7a858ad 100644
--- a/ErrMsg.hs
+++ b/ErrMsg.hs
@@ -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