BounceFavicon.hs

-- | Stolen from rack-contrib: Bounce those annoying favicon.ico requests

module Hack.Contrib.Middleware.BounceFavicon (bounce_favicon) where

import Hack
import Hack.Contrib.Middleware.NotFound
import Hack.Contrib.Utils
import MPS.Light
import Prelude hiding ((.), (^), (>), head)



bounce_favicon :: Middleware
bounce_favicon app = \env -> do
  if env.path_info.is "/favicon.ico"
    then not_found dummy_app env
    else app env