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

Log exceptions as GmException

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) return (fourInts bndLoc, t)
where where
handler (SomeException ex) = do handler (SomeException ex) = do
gmLog GmDebug "splits" $ gmLog GmException "splits" $
text "" $$ nest 4 (showDoc ex) text "" $$ nest 4 (showDoc ex)
emptyResult =<< options 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) in (fourInts loc, doParen paren txt)
where where
handler (SomeException ex) = do handler (SomeException ex) = do
gmLog GmDebug "refining" $ gmLog GmException "refining" $
text "" $$ nest 4 (showDoc ex) text "" $$ nest 4 (showDoc ex)
emptyResult =<< options emptyResult =<< options
@ -450,7 +450,7 @@ auto file lineNo colNo =
, map (doParen paren) $ nub (djinnsEmpty ++ djinns)) , map (doParen paren) $ nub (djinnsEmpty ++ djinns))
where where
handler (SomeException ex) = do handler (SomeException ex) = do
gmLog GmDebug "auto-refining" $ gmLog GmException "auto-refining" $
text "" $$ nest 4 (showDoc ex) text "" $$ nest 4 (showDoc ex)
emptyResult =<< options emptyResult =<< options