From 580d92cde4bf4b92f6d4de614b2e58259ad1f007 Mon Sep 17 00:00:00 2001
From: Toralf Wittner <tw@dtex.org>
Date: Mon, 28 Apr 2014 14:33:18 +0200
Subject: [PATCH] Remove mtl dependency and `MonadLogger` instances.

---
 src/System/Logger/Class.hs | 21 ++++++++-------------
 tinylog.cabal              |  1 -
 2 files changed, 8 insertions(+), 14 deletions(-)

diff --git a/src/System/Logger/Class.hs b/src/System/Logger/Class.hs
index f0536bc..80e4f54 100644
--- a/src/System/Logger/Class.hs
+++ b/src/System/Logger/Class.hs
@@ -28,25 +28,20 @@ module System.Logger.Class
     )
 where
 
-import Prelude hiding (log)
-import Control.Monad.Reader
-import System.Logger (Logger, Level (..))
+import System.Logger (Level (..))
 import System.Logger.Message as M
 
 import qualified System.Logger as L
 
-class MonadIO m => MonadLogger m where
+class Monad m => MonadLogger m where
     log :: Level -> (Msg -> Msg) -> m ()
 
-instance (MonadIO m, MonadReader Logger m) => MonadLogger (ReaderT r m) where
-    log l m = lift ask >>= \g -> L.log g l m
-
 -- | Abbreviation for 'log' using the corresponding log level.
 trace, debug, info, warn, err, fatal :: MonadLogger m => (Msg -> Msg) -> m ()
-trace = log Trace
-debug = log Debug
-info  = log Info
-warn  = log Warn
-err   = log Error
-fatal = log Fatal
+trace = System.Logger.Class.log Trace
+debug = System.Logger.Class.log Debug
+info  = System.Logger.Class.log Info
+warn  = System.Logger.Class.log Warn
+err   = System.Logger.Class.log Error
+fatal = System.Logger.Class.log Fatal
 
diff --git a/tinylog.cabal b/tinylog.cabal
index 5a3c24d..ef2cb62 100644
--- a/tinylog.cabal
+++ b/tinylog.cabal
@@ -33,7 +33,6 @@ library
         , bytestring   >= 0.10
         , date-cache   >= 0.3
         , fast-logger  >= 2.1.4 && < 2.2
-        , mtl          >= 2.1
         , text         >= 0.11  && < 1.2
         , transformers >= 0.3
         , unix-time    >= 0.1
-- 
GitLab