NotFound.hs

module Hack.Contrib.Middleware.NotFound (not_found) where

import Hack
import Hack.Contrib.Response
import Hack.Contrib.Constants

import MPSUTF8
import Prelude hiding ((.), (^), (>), (+))
import Data.Default


not_found :: Middleware
not_found _ = \_ -> return $
  def
    .set_status 404
    .set_content_type _TextHtml
    .set_content_length 0