fixup! Use resourcet for resource managment

haskell-servant · Jan 18, 2017 · 75e3963 · 75e3963
1 parent 88d7dea
commit 75e3963
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/servant-server/src/Servant/Server/Internal/RoutingApplication.hs b/servant-server/src/Servant/Server/Internal/RoutingApplication.hs
@@ -61,7 +61,7 @@ instance (Functor m, Monad m) => Applicative (RouteResultT m) where
     pure  = return
     (<*>) = ap
 
-instance (Functor m, Monad m) => Monad (RouteResultT m) where
+instance Monad m => Monad (RouteResultT m) where
     return = RouteResultT . return . Route
     m >>= k = RouteResultT $ do
         a <- runRouteResultT m