From 3c4e6b62fbd765f431dbeab80a15b681ef47a644 Mon Sep 17 00:00:00 2001 From: Sarah Vaupel Date: Tue, 30 Jan 2024 21:53:30 +0100 Subject: [PATCH] chore: fix constructor names --- src/Handler/Admin/Test.hs | 4 ++-- src/Jobs.hs | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Handler/Admin/Test.hs b/src/Handler/Admin/Test.hs index d89ca8ea6..e6acc5d5d 100644 --- a/src/Handler/Admin/Test.hs +++ b/src/Handler/Admin/Test.hs @@ -321,8 +321,8 @@ postAdminTestR = do
appJobCronInterval
#{tshow appJobCronInterval} -
appUserDbSyncWithin -
#{tshow appUserdbSyncWithin} +
appUserSyncWithin +
#{tshow appUserSyncWithin}
appSynchroniseAvsUsersWithin
#{tshow appSynchroniseAvsUsersWithin} |] diff --git a/src/Jobs.hs b/src/Jobs.hs index 79c17ba25..e24636724 100644 --- a/src/Jobs.hs +++ b/src/Jobs.hs @@ -493,7 +493,7 @@ handleJobs' wNum = C.mapM_ $ \jctl -> hoist delimitInternalState . withJobWorker , Exc.Handler $ \case MailNotAvailable -> return $ Right () e -> return . Left $ SomeException e - , Exc.Handler $ \SynchroniseUserdbNoLdap -> return $ Right () -- TODO + , Exc.Handler $ \SynchroniseUserdbNoUserdb -> return $ Right () -- TODO #endif , Exc.Handler $ \(e :: SomeException) -> return $ Left e ] . fmap Right