From 1f14ff08c6190d033ac836c17f64c5699da7dfd8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Gr=C3=B6ber?= Date: Mon, 17 Aug 2015 04:58:33 +0200 Subject: [PATCH] Log exceptions as GmException --- Language/Haskell/GhcMod/CaseSplit.hs | 2 +- Language/Haskell/GhcMod/FillSig.hs | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/Language/Haskell/GhcMod/CaseSplit.hs b/Language/Haskell/GhcMod/CaseSplit.hs index 5d2c414..1db05d7 100644 --- 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 diff --git a/Language/Haskell/GhcMod/FillSig.hs b/Language/Haskell/GhcMod/FillSig.hs index 02da7a0..ed1a769 100644 --- a/Language/Haskell/GhcMod/FillSig.hs +++ b/Language/Haskell/GhcMod/FillSig.hs @@ -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