t ∷ HPutable a
         ⇒ a -- ^ Response body
         → Route Response
badRequest = return ∘ Response 400
{-# INLINE badRequest #-}

-- | Returns HTTP 40
badRequest ∷ HPutable a
         ⇒ a -- ^ Response body
         → Route Response
badRequest = return ∘ Response 400
badRequest = return ∘ Response 400