Add 401 Unauthorized.

Author: chpatrick

solga/src/Solga.hs

@@ -41,6 +41,7 @@ module Solga
   -- * Error handling
   , SolgaError
   , badRequest
+  , unauthorized
   , notFound
   , internalServerError
   -- * Router implementation
@@ -366,6 +367,13 @@ badRequest msg = SolgaError
   , errorMessage = msg
   }
 
+-- | Create a @401 Unauthorized@ error with a given message.
+unauthorized :: Text.Text -> SolgaError
+unauthorized msg = SolgaError
+  { errorStatus = HTTP.unauthorized401
+  , errorMessage = msg
+  }
+
 -- | Create a @404 Not Found@ error with a given message.
 notFound :: Text.Text -> SolgaError
 notFound msg = SolgaError