Change some logging stuff

2015-05-06 16:13:08 +02:00
parent d11b12676e
commit 0f1e653f7f
4 changed files with 13 additions and 10 deletions
--- a/Language/Haskell/GhcMod/Info.hs
+++ b/Language/Haskell/GhcMod/Info.hs
@@ -64,7 +64,9 @@ types file lineNo colNo =

        convert' $ map (toTup dflag st) $ sortBy (cmp `on` fst) srcSpanTypes
 where
-   handler (SomeException _) = return []
+   handler (SomeException ex) = do
+     gmLog GmException "types" $ showDoc ex
+     return []

 getSrcSpanType :: GhcMonad m => G.ModSummary -> Int -> Int -> m [(SrcSpan, Type)]
 getSrcSpanType modSum lineNo colNo = do