Head.hs

module Hack.Contrib.Head where

import Hack
import Hack.Utils

import MPSUTF8
import Prelude hiding ((.), (^), (>), head)

head :: MiddleWare
head app = \env -> do
  response <- app env
  if env.request_method.is HEAD 
    then return $ response { body = "" }
    else return $ response