Merge pull request #108 from RyanGlScott/master

Fix #106 by correcting the default signature for MonadLoggerIO
kazu-yamamoto · Nov 7, 2016 · f328aa9 · f328aa9
2 parents 2ad5f24 + 019f77b
commit f328aa9
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/monad-logger/Control/Monad/Logger.hs b/monad-logger/Control/Monad/Logger.hs
@@ -215,8 +215,8 @@ class (MonadLogger m, MonadIO m) => MonadLoggerIO m where
     --
     -- Since 0.3.10
     askLoggerIO :: m (Loc -> LogSource -> LogLevel -> LogStr -> IO ())
-    default askLoggerIO :: (Trans.MonadTrans t, MonadLogger (t m), MonadIO (t m))
-                        => t m (Loc -> LogSource -> LogLevel -> LogStr -> IO ())
+    default askLoggerIO :: (Trans.MonadTrans t, MonadLoggerIO n, m ~ t n)
+                        => m (Loc -> LogSource -> LogLevel -> LogStr -> IO ())
     askLoggerIO = Trans.lift askLoggerIO