functions --

-- | Returns HTTP 200 response
--
-- > serve 80 [emptyPath >> contentType "text/html" >> okay "Some response"]
okay ∷ HPutable a
     ⇒ a -- ^ Response body
     → Route Response
okay = return ∘ Response 200
{-# INLINE okay #-}
okay ∷ HPutable a
     ⇒ a -- ^ Response body
     → Route Response
okay = return ∘ Response 200
okay = return ∘ Response 200