@@ -10,10 +10,9 @@
10module Servant.Server.Internal.RoutingApplication where
10module Servant.Server.Internal.RoutingApplication where
12import Control.Exception (finally)
12import Control.Exception (finally)
13−import Control.Monad (ap, liftM, (>=>))
13+import Control.Monad (ap, liftM)
14import Control.Monad.Trans (MonadIO(..))
14import Control.Monad.Trans (MonadIO(..))
15−import Control.Monad.Trans.Except (runExceptT)
16−import Data.IORef (newIORef, readIORef, writeIORef, IORef, atomicModifyIORef)
15+import Data.IORef (newIORef, readIORef, IORef, atomicModifyIORef)
17import Network.Wai (Application, Request,
16import Network.Wai (Application, Request,
18 Response, ResponseReceived)
17 Response, ResponseReceived)
19import Prelude ()
18import Prelude ()