Rename AuthResult to BasicAuthResult

AuthResult is not extensible enough for more complex, homegrown combinators
2016-01-08 11:43:58 +01:00 · 2016-01-08 11:43:58 +01:00 · 9a94403d97
commit 9a94403d97
parent 0764d9b84c
1 changed files with 2 additions and 2 deletions
--- a/servant-server/src/Servant/Server/Internal/Auth.hs
+++ b/servant-server/src/Servant/Server/Internal/Auth.hs
@ -27,7 +27,7 @@ mkAuthHandler :: (r -> ExceptT ServantErr IO usr) -> AuthHandler r usr
 mkAuthHandler = AuthHandler

 -- | The result of authentication/authorization
-data AuthResult usr
+data BasicAuthResult usr
  = Unauthorized
  | BadPassword
  | NoSuchUser
@ -39,7 +39,7 @@ data AuthResult usr
 newtype BasicAuthCheck usr = BasicAuthCheck
  { unBasicAuthCheck :: BS.ByteString  -- Username
                     -> BS.ByteString  -- Password
-                     -> IO (AuthResult usr)
+                     -> IO (BasicAuthResult usr)
  }
  deriving (Generic, Typeable, Functor)