hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

one more type error to be rescued.

Browse Source
This commit is contained in:
Kazu Yamamoto 2014-08-14 16:42:05 +09:00
parent 4f785d7f8a
commit 8606316d84
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Language/Haskell/GhcMod/Logger.hs
View File

@ -106,12 +106,14 @@ ppMsg spn sev dflag style msg = prefix ++ cts
file <- normalise <$> Gap.getSrcFile spn file <- normalise <$> Gap.getSrcFile spn
let severityCaption = Gap.showSeverityCaption sev let severityCaption = Gap.showSeverityCaption sev
pref0 pref0
| typeWarning `isPrefixOf` cts = file ++ ":" ++ show line ++ ":" ++ show col ++ ":" | typeWarning1 `isPrefixOf` cts ||
| otherwise = file ++ ":" ++ show line ++ ":" ++ show col ++ ":" ++ severityCaption typeWarning2 `isPrefixOf` cts = file ++ ":" ++ show line ++ ":" ++ show col ++ ":"
| otherwise = file ++ ":" ++ show line ++ ":" ++ show col ++ ":" ++ severityCaption
return pref0 return pref0
-- DeferTypeErrors turns a type error to a warning. -- DeferTypeErrors turns a type error to a warning.
-- So, let's turns it the error again. -- So, let's turns it the error again.
typeWarning = "Couldn't match expected type" typeWarning1 = "Couldn't match expected type"
typeWarning2 = "Couldn't match type"
checkErrorPrefix :: String checkErrorPrefix :: String
checkErrorPrefix = "Dummy:0:0:Error:" checkErrorPrefix = "Dummy:0:0:Error:"