chore: fix constructor names

This commit is contained in:
Sarah Vaupel 2024-01-30 21:53:30 +01:00
parent f39de71c02
commit 3c4e6b62fb
2 changed files with 3 additions and 3 deletions

View File

@ -321,8 +321,8 @@ postAdminTestR = do
<dl .deflist>
<dt .deflist__dt> appJobCronInterval
<dd .deflist__dd>#{tshow appJobCronInterval}
<dt .deflist__dt> appUserDbSyncWithin
<dd .deflist__dd>#{tshow appUserdbSyncWithin}
<dt .deflist__dt> appUserSyncWithin
<dd .deflist__dd>#{tshow appUserSyncWithin}
<dt .deflist__dt> appSynchroniseAvsUsersWithin
<dd .deflist__dd>#{tshow appSynchroniseAvsUsersWithin}
|]

View File

@ -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