Failed CI build on GHC warnings

Author: sebright

.travis.yml

@@ -92,7 +92,7 @@ script:
 
  # this builds all libraries and executables
  # (including tests)
- - cabal-1.18 build
+ - cabal-1.18 build --ghc-options=-Werror
 
  - cabal-1.18 test
  - cabal-1.18 check

src/Network/JsonRpc/Server.hs

@@ -1,8 +1,13 @@
-{-# LANGUAGE MultiParamTypeClasses,
+{-# LANGUAGE CPP,
+             MultiParamTypeClasses,
              Rank2Types,
              TypeOperators,
              OverloadedStrings #-}
 
+#if MIN_VERSION_mtl(2,2,1)
+{-# OPTIONS_GHC -fno-warn-deprecations #-}
+#endif
+
 -- | Functions for implementing the server side of JSON RPC 2.0.
 --   See <http://www.jsonrpc.org/specification>.
 module Network.JsonRpc.Server (
@@ -40,8 +45,8 @@ import qualified Data.Vector as V
 import qualified Data.HashMap.Strict as H
 import Control.Applicative ((<$>))
 import Control.Monad (liftM)
-import Control.Monad.Identity (Identity, runIdentity)
-import Control.Monad.Error (ErrorT, runErrorT, throwError)
+import Control.Monad.Identity (runIdentity)
+import Control.Monad.Error (runErrorT, throwError)
 
 -- $instructions
 -- * Create methods by calling 'toMethod' and providing the method

src/Network/JsonRpc/Types.hs

@@ -1,11 +1,16 @@
-{-# LANGUAGE MultiParamTypeClasses,
+{-# LANGUAGE CPP,
+             MultiParamTypeClasses,
              FunctionalDependencies,
              FlexibleInstances,
              UndecidableInstances,
              TypeOperators,
              TypeSynonymInstances,
              OverloadedStrings #-}
 
+#if MIN_VERSION_mtl(2,2,1)
+{-# OPTIONS_GHC -fno-warn-deprecations #-}
+#endif
+
 module Network.JsonRpc.Types ( RpcResult
                              , Method (..)
                              , Methods (..)