Permalink
Browse files

Fix warnings and remove some debug output.

  • Loading branch information...
nominolo committed May 10, 2011
1 parent dd907b9 commit 57bf64bb21f6e5d81a54185e7110fe355d81ca09
Showing with 4 additions and 5 deletions.
  1. +1 −2 src/Scion/Types/Monad.hs
  2. +1 −1 src/Scion/Types/Worker.hs
  3. +2 −2 src/Scion/Worker/Main.hs
View
@@ -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
@@ -2,7 +2,7 @@
module Scion.Types.Worker
( module Scion.Types.Worker
, module Scion.Types.Core
- , MonadIO(..), ExceptionMonad(..) )
+ )
where
import Scion.Types.Core
View
@@ -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

0 comments on commit 57bf64b

Please sign in to comment.