 for convenience when using OverloadedStrings
badRequest' ∷ B.ByteString -- ^ Response body
          → Route Response
badRequest' = return ∘ Response 400
{-# INLINE badRequest' #-}

-- Route functions --

--
badRequest' ∷ B.ByteString -- ^ Response body
          → Route Response
badRequest' = return ∘ Response 400
badRequest' = return ∘ Response 400