From 819d915aae971d85e226cb5e2300109e8102287f Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Thu, 26 May 2011 14:43:53 +0900
Subject: [PATCH] fixing filepath.

---
 Check.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Check.hs b/Check.hs
index 4fadb2b..7cb2107 100644
--- a/Check.hs
+++ b/Check.hs
@@ -12,6 +12,7 @@ import HscTypes
 import Outputable hiding (showSDoc)
 import Prelude hiding (catch)
 import Pretty
+import System.FilePath
 import Types
 
 ----------------------------------------------------------------
@@ -54,7 +55,7 @@ showErrMsg :: ErrMsg -> String
 showErrMsg err = file ++ ":" ++ line ++ ":" ++ col ++ ":" ++ msg ++ "\0" ++ ext
    where
      spn = head (errMsgSpans err)
-     file = unpackFS (srcSpanFile spn)
+     file = takeFileName $ unpackFS (srcSpanFile spn)
      line = show (srcSpanStartLine spn)
      col  = show (srcSpanStartCol spn)
      msg = showSDoc (errMsgShortDoc err)