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

Log exceptions as GmException

Browse Source
This commit is contained in:
Daniel Gröber 2015-08-17 04:58:33 +02:00
parent f4aea2c08a
commit 1f14ff08c6
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Language/Haskell/GhcMod/CaseSplit.hs
View File

@ -66,7 +66,7 @@ splits file lineNo colNo =
return (fourInts bndLoc, t)
where
handler (SomeException ex) = do
gmLog GmDebug "splits" $
gmLog GmException "splits" $
text "" $$ nest 4 (showDoc ex)
emptyResult =<< options

4
Language/Haskell/GhcMod/FillSig.hs
View File

@ -361,7 +361,7 @@ refine file lineNo colNo (Expression expr) =
in (fourInts loc, doParen paren txt)
where
handler (SomeException ex) = do
gmLog GmDebug "refining" $
gmLog GmException "refining" $
text "" $$ nest 4 (showDoc ex)
emptyResult =<< options
@ -450,7 +450,7 @@ auto file lineNo colNo =
, map (doParen paren) $ nub (djinnsEmpty ++ djinns))
where
handler (SomeException ex) = do
gmLog GmDebug "auto-refining" $
gmLog GmException "auto-refining" $
text "" $$ nest 4 (showDoc ex)
emptyResult =<< options