hack-contrib-2010.9.28: src/Hack/Contrib/Middleware/Cascade.hs

module Hack.Contrib.Middleware.Cascade (cascade) where

import Prelude ()
import MPS.Env
import Hack
import Data.Default

cascade :: [Application] -> Application
cascade [] = const - return def { status = 404 }
cascade (x:xs) = \env -> do
  r <- x env
  if r.status == 404
    then
      cascade xs env
    else
      return r