src/Auth/OAuth2.hs

@@ -7,7 +7,7 @@
 module Auth.OAuth2
   ( apAzure
   , azurePrimaryKey, azureUserPrincipalName, azureUserDisplayName, azureUserGivenName, azureUserSurname, azureUserMail, azureUserTelephone, azureUserMobile, azureUserPreferredLanguage
-  , oauth2User
+  , azureUser
   , AzureUserException(..)
   , oauth2MockServer
   , mockPluginName 
@@ -46,13 +46,13 @@ azureUserPreferredLanguage = "preferredLanguage"
 
 
 -- | User lookup in an OAuth2 database with given credentials
-oauth2User :: ( MonadUnliftIO m
-           -- , MonadThrow m
-              )
-              => AzureConf
-              -> Creds site
-              -> m [(Text, [ByteString])] -- (Either AzureUserException [(Text, [ByteString])])
-oauth2User _conf _creds = fmap throwLeft . liftIO . runExceptT $ do
+azureUser :: ( MonadUnliftIO m
+          -- , MonadThrow m
+             )
+             => AzureConf
+             -> Creds site
+             -> m [(Text, [ByteString])] -- (Either AzureUserException [(Text, [ByteString])])
+azureUser _conf _creds = fmap throwLeft . liftIO . runExceptT $ do
   results <- return [] -- TODO
   case results of
     [] -> throwE AzureUserNoResult