Merge pull request #135 from rgrinberg/master

Remove redundant lambda
scotty-web · Dec 8, 2014 · 56e11d5 · 56e11d5
2 parents 82d0b87 + c2710d6
commit 56e11d5
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