diff -ur ghc-mtl-1.0.1.0.orig/Control/Monad/Ghc.hs ghc-mtl-1.0.1.0/Control/Monad/Ghc.hs
--- ghc-mtl-1.0.1.0.orig/Control/Monad/Ghc.hs	2011-09-07 07:38:20.297885351 -0300
+++ ghc-mtl-1.0.1.0/Control/Monad/Ghc.hs	2011-09-07 08:31:44.132815320 -0300
@@ -12,13 +12,15 @@
 import Control.Monad.CatchIO
 
 import qualified GHC ( runGhc, runGhcT )
-import qualified HscTypes   as GHC
+-- import qualified HscTypes   as GHC
+import qualified GhcMonad   as GHC
 import qualified MonadUtils as GHC
 import qualified Exception  as GHC
 
 newtype Ghc a = Ghc (GHC.Ghc a)
     deriving (Functor, Monad,
-              GHC.WarnLogMonad, GHC.ExceptionMonad, GHC.MonadIO, GHC.GhcMonad)
+              -- GHC.WarnLogMonad, 
+              GHC.ExceptionMonad, GHC.MonadIO, GHC.GhcMonad)
 
 instance MTL.MonadIO Ghc where
     liftIO = GHC.liftIO
@@ -56,9 +58,9 @@
     gblock   = block
     gunblock = unblock
 
-instance MTL.MonadIO m => GHC.WarnLogMonad (GhcT m) where
-    setWarnings = GhcT . GHC.setWarnings
-    getWarnings = GhcT GHC.getWarnings
+-- instance MTL.MonadIO m => GHC.WarnLogMonad (GhcT m) where
+--     setWarnings = GhcT . GHC.setWarnings
+--     getWarnings = GhcT GHC.getWarnings
 
 instance (Functor m, MonadCatchIO m) => GHC.GhcMonad (GhcT m) where
     getSession = GhcT GHC.getSession