From bee135ab48d8694eb03b084829db529a195f7cf6 Mon Sep 17 00:00:00 2001
From: David Mosbach <mosbach@cip.ifi.lmu.de>
Date: Thu, 22 Feb 2024 18:56:03 +0000
Subject: [PATCH] chore(auth): connect azure user lookup

---
 src/Auth/OAuth2.hs | 16 +++++++---------
 1 file changed, 7 insertions(+), 9 deletions(-)

diff --git a/src/Auth/OAuth2.hs b/src/Auth/OAuth2.hs
index 299b6b2e3..6d3847104 100644
--- a/src/Auth/OAuth2.hs
+++ b/src/Auth/OAuth2.hs
@@ -57,23 +57,21 @@ azureUserPreferredLanguage = "preferredLanguage"
 
 -- | User lookup in Microsoft Graph with given credentials
 azureUser :: ( MonadMask m
-             , MonadUnliftIO m
-          -- , MonadThrow m
+             , MonadHandler m
              )
              => AzureConf
              -> Creds site
              -> m [(Text, [ByteString])] -- (Either AzureUserException [(Text, [ByteString])])
-azureUser _conf _creds = fmap throwLeft . liftIO . runExceptT $ do
-  results <- return [] -- TODO
+azureUser _conf Creds{..} = fmap throwLeft . runExceptT $ do
+  results <- queryOAuth2User @[(Text, [ByteString])] credsIdent
   case results of
-    [] -> throwE AzureUserNoResult
-    [res] -> return res
-    _multiple -> throwE AzureUserAmbiguous
+    Left _ -> throwE AzureUserNoResult
+    Right [res] -> return res
+    Right _multiple -> throwE AzureUserAmbiguous
 
 -- | User lookup in Microsoft Graph with given user
 azureUser' :: ( MonadMask m
-              , MonadUnliftIO m
-          -- , MonadThrow m
+              , MonadHandler m
              )
              => AzureConf
              -> User