Add 403 Forbidden.

Author: chpatrick

solga/src/Solga.hs

@@ -42,6 +42,7 @@ module Solga
   , SolgaError
   , badRequest
   , unauthorized
+  , forbidden
   , notFound
   , internalServerError
   -- * Router implementation
@@ -374,6 +375,13 @@ unauthorized msg = SolgaError
   , errorMessage = msg
   }
 
+-- | Create a @403 Forbidden@ error with a given message.
+forbidden :: Text.Text -> SolgaError
+forbidden msg = SolgaError
+  { errorStatus = HTTP.forbidden403
+  , errorMessage = msg
+  }
+
 -- | Create a @404 Not Found@ error with a given message.
 notFound :: Text.Text -> SolgaError
 notFound msg = SolgaError