Fix ordering so middlewares run before routes!

zmoazeni · Jan 3, 2012 · a3e1bf9 · a3e1bf9
1 parent 5b208c5
commit a3e1bf9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Web/Spock.hs b/Web/Spock.hs
@@ -62,7 +62,7 @@ spock p s = putStrLn "Setting phasers to stun... (ctrl-c to quit)" >> (run p =<<
 spockApp :: SpockM () -> IO Application
 spockApp defs = do
     s <- MS.execStateT (runS defs) def
-    return $ foldl (flip ($)) notFoundApp $ middlewares s ++ routes s
+    return $ foldl (flip ($)) notFoundApp $ routes s ++ middlewares s
 
 notFoundApp :: Application
 notFoundApp _ = return $ ResponseBuilder status404 [("Content-Type","text/html")]