+ -- 4xx:
+ | resStatus ≡ cs BadRequest
+ = unsafeByteString "The server could not understand the request you sent."
+ | resStatus ≡ cs Unauthorized
+ = unsafeByteString "You need a valid authentication to access " ⊕ path
+ | resStatus ≡ cs Forbidden
+ = unsafeByteString "You don't have permission to access " ⊕ path
+ | resStatus ≡ cs NotFound
+ = do unsafeByteString "The requested URL "
+ path
+ unsafeByteString " was not found on this server."
+ | resStatus ≡ cs Gone
+ = do unsafeByteString "The resource at "
+ path
+ unsafeByteString " was here in past times, but has gone permanently."
+ | resStatus ≡ cs RequestEntityTooLarge
+ = do unsafeByteString "The request entity you sent for "
+ path
+ unsafeByteString " was too large to accept."
+ | resStatus ≡ cs RequestURITooLarge
+ = unsafeByteString "The request URI you sent was too large to accept."