eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

warning free

Browse source
This commit is contained in:
Alp Mestanogullari 2017-01-12 03:01:49 +01:00
parent 6aab9becb9
commit 2769031e9b
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
servant-server/src/Servant/Server/Internal/RoutingApplication.hs
View file

@ -10,10 +10,10 @@
module Servant.Server.Internal.RoutingApplication where module Servant.Server.Internal.RoutingApplication where
import Control.Exception (finally) import Control.Exception (finally)
import Control.Monad (ap, liftM, (>=>)) import Control.Monad (ap, liftM)
import Control.Monad.Trans (MonadIO(..)) import Control.Monad.Trans (MonadIO(..))
import Control.Monad.Trans.Except (runExceptT) 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, import Network.Wai (Application, Request,
Response, ResponseReceived) Response, ResponseReceived)
import Prelude () import Prelude ()