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