+ | resStatus ≈ TemporaryRedirect
+ = txt ("The resource at " ⧺ path ⧺ " is temporarily located at ")
+ <+>
+ eelem "a" += sattr "href" loc
+ += txt loc
+ <+>
+ txt "."
+
+ -- 4xx:
+ | resStatus ≈ BadRequest
+ = txt "The server could not understand the request you sent."
+ | resStatus ≈ Unauthorized
+ = txt ("You need a valid authentication to access " ⧺ path)
+ | resStatus ≈ Forbidden
+ = txt ("You don't have permission to access " ⧺ path)
+ | resStatus ≈ NotFound
+ = txt ("The requested URL " ⧺ path ⧺ " was not found on this server.")
+ | resStatus ≈ Gone
+ = txt ("The resource at " ⧺ path ⧺ " was here in past times, but has gone permanently.")
+ | resStatus ≈ RequestEntityTooLarge
+ = txt ("The request entity you sent for " ⧺ path ⧺ " was too large to accept.")
+ | resStatus ≈ RequestURITooLarge
+ = txt "The request URI you sent was too large to accept."
+
+ -- 5xx:
+ | resStatus ≈ InternalServerError
+ = txt ("An internal server error has occured during the process of your request to " ⧺ path)
+ | resStatus ≈ ServiceUnavailable
+ = txt "The service is temporarily unavailable. Try later."
+
+ | otherwise
+ = none
+ where
+ path ∷ String
+ path = uriPath ∘ reqURI $ fromJust req