From 2769031e9b253c6331a3317312fbeb07a847a901 Mon Sep 17 00:00:00 2001 From: Alp Mestanogullari Date: Thu, 12 Jan 2017 03:01:49 +0100 Subject: [PATCH] warning free --- .../src/Servant/Server/Internal/RoutingApplication.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/servant-server/src/Servant/Server/Internal/RoutingApplication.hs b/servant-server/src/Servant/Server/Internal/RoutingApplication.hs index bf36cbb9..227cb1d0 100644 --- a/servant-server/src/Servant/Server/Internal/RoutingApplication.hs +++ b/servant-server/src/Servant/Server/Internal/RoutingApplication.hs @@ -10,10 +10,10 @@ module Servant.Server.Internal.RoutingApplication where import Control.Exception (finally) -import Control.Monad (ap, liftM, (>=>)) +import Control.Monad (ap, liftM) import Control.Monad.Trans (MonadIO(..)) import Control.Monad.Trans.Except (runExceptT) -import Data.IORef (newIORef, readIORef, writeIORef, IORef, atomicModifyIORef) +import Data.IORef (newIORef, readIORef, IORef, atomicModifyIORef) import Network.Wai (Application, Request, Response, ResponseReceived) import Prelude ()