Merge 5701319 into 1ed9b17

scotty-web · Dec 2, 2014 · b71b1af · b71b1af
2 parents 1ed9b17 + 5701319
commit b71b1af
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Web/Scotty/Trans.hs b/Web/Scotty/Trans.hs
@@ -89,7 +89,7 @@ scottyAppT :: (Monad m, Monad n)
            -> n Application
 scottyAppT runM runActionToIO defs = do
     s <- runM $ execStateT (runS defs) def
-    let rapp = \ req callback -> runActionToIO (foldl (flip ($)) notFoundApp (routes s) req) >>= callback
+    let rapp req callback = runActionToIO (foldl (flip ($)) notFoundApp (routes s) req) >>= callback
     return $ foldl (flip ($)) rapp (middlewares s)
 
 notFoundApp :: Monad m => Scotty.Application m