Fix warnings and remove some debug output.

nominolo · May 10, 2011 · 57bf64b · 57bf64b
1 parent dd907b9
commit 57bf64b
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 5 deletions.
diff --git a/src/Scion/Types/Monad.hs b/src/Scion/Types/Monad.hs
@@ -2,8 +2,7 @@
 -- | Definitions concerning the
 module Scion.Types.Monad
   ( module Scion.Types.Monad,
-    module Scion.Types.Core,
-    ExceptionMonad(..), MonadIO(..)
+    module Scion.Types.Core
   )
 where
 

diff --git a/src/Scion/Types/Worker.hs b/src/Scion/Types/Worker.hs
@@ -2,7 +2,7 @@
 module Scion.Types.Worker
   ( module Scion.Types.Worker
   , module Scion.Types.Core
-  , MonadIO(..), ExceptionMonad(..) )
+  )
 where
 
 import Scion.Types.Core

diff --git a/src/Scion/Worker/Main.hs b/src/Scion/Worker/Main.hs
@@ -270,10 +270,10 @@ initGhcSession targets args1 debugMsg kont = do
             case severity of
               --Ghc.SevOutput -> debugMsg $ "OUT: " ++ msg_text loc sty msg
               Ghc.SevWarning -> do
-                debugMsg $ "WARN: " ++ msg_text loc sty msg
+                --debugMsg $ "WARN: " ++ msg_text loc sty msg
                 addNote WarningNote loc (withPprStyle sty msg)
               Ghc.SevError   -> do
-                debugMsg $ "ERR: " ++ msg_text loc sty msg
+                --debugMsg $ "ERR: " ++ msg_text loc sty msg
                 addNote ErrorNote loc (withPprStyle sty msg)
               Ghc.SevInfo    -> debugMsg $ "INFO: " ++ msg_text loc sty msg
               Ghc.SevFatal   -> debugMsg $ "FATAL: " ++ msg_text loc sty msg