Log exceptions as GmException

2015-08-17 04:58:33 +02:00
parent f4aea2c08a
commit 1f14ff08c6
2 changed files with 3 additions and 3 deletions
--- a/Language/Haskell/GhcMod/CaseSplit.hs
+++ b/Language/Haskell/GhcMod/CaseSplit.hs
@@ -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