2.1.3.1: build without warnings on GHC 7.8
authorEdward Kmett <ekmett@gmail.com>
Mon, 24 Mar 2014 18:49:45 +0000 (14:49 -0400)
committerEdward Kmett <ekmett@gmail.com>
Mon, 24 Mar 2014 18:49:45 +0000 (14:49 -0400)
CHANGELOG.markdown
Control/Monad/Error.hs
Control/Monad/Error/Class.hs
mtl.cabal

index e8d7a50..4216da8 100644 (file)
@@ -1,3 +1,7 @@
+2.1.3.1
+-------
+* Avoid importing `Control.Monad.Instances` on GHC 7.8 to build without deprecation warnings.
+
 2.1.3
 -----
 * Removed the now-irrelevant `Error` constraint from the `MonadError` instance for `Either e`.
index ead807f..21e0074 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
 {- |
 Module      :  Control.Monad.Error
 Copyright   :  (c) Michael Weber <michael.weber@post.rwth-aachen.de> 2001,
@@ -54,7 +55,10 @@ import Control.Monad.Trans.Error (ErrorT(..), mapErrorT)
 
 import Control.Monad
 import Control.Monad.Fix
+
+#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ < 707
 import Control.Monad.Instances ()
+#endif
 
 {- $customErrorExample
 Here is an example that demonstrates the use of a custom 'Error' data type with
index 7059c03..ae9a8b0 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
 {-# LANGUAGE UndecidableInstances #-}
 
 {- |
@@ -55,7 +56,11 @@ import Control.Monad.Trans.Writer.Strict as StrictWriter
 import Control.Monad.Trans.Class (lift)
 import Control.Exception (IOException, catch, ioError)
 import Control.Monad
+
+#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ < 707
 import Control.Monad.Instances ()
+#endif
+
 import Data.Monoid
 import Prelude (Either(..), (.), IO)
 
index 3deab7c..309039f 100644 (file)
--- a/mtl.cabal
+++ b/mtl.cabal
@@ -1,5 +1,5 @@
 name:         mtl
-version:      2.1.3
+version:      2.1.3.1
 cabal-version: >= 1.6
 license:      BSD3
 license-file: LICENSE