annot -> type.

2012-02-13 13:38:06 +09:00
parent a43985a735
commit 11eb321ff6
2 changed files with 20 additions and 15 deletions
--- a/Info.hs
+++ b/Info.hs
@@ -62,10 +62,10 @@ typeOf opt fileName modstr lineNo colNo = inModuleContext opt fileName modstr ex
 #else
    l spn | isGoodSrcSpan spn
 #endif
-      = ("("++) . (++")") . unwords . map show $
+      = unwords . map show $
        [ srcSpanStartLine spn, srcSpanStartCol spn
        , srcSpanEndLine spn, srcSpanEndCol spn ]
-    l _ = "(0 0 0 0)"
+    l _ = "0 0 0 0"
    
    cmp a b
      | a `isSubspanOf` b = O.LT