diff --git a/src/Jobs/Handler/SynchroniseAvs.hs b/src/Jobs/Handler/SynchroniseAvs.hs index db4d9482a..1a3ed10ab 100644 --- a/src/Jobs/Handler/SynchroniseAvs.hs +++ b/src/Jobs/Handler/SynchroniseAvs.hs @@ -158,7 +158,7 @@ dispatchJobSynchroniseAvsLicences = JobHandlerException $ do -- when (synchLevel oks <- catchAllAvs $ setLicencesAvs $ Set.map (AvsPersonLicence aLic) apids when (oks > 0) $ logit $ toMaybe (oks /= n) [st|Only #{tshow oks}/#{tshow n} licence changes accepted by AVS|] else - logit $ Just $ [st|Too many changes at once. Consider increasing avs-licence-synch-max-changes #{tshow maxChanges}|] + logit $ Just [st|Too many changes at once. Consider increasing avs-licence-synch-max-changes #{tshow maxChanges}|] | otherwise = return () (AvsLicenceDifferences{..}, rsChanged) <- retrieveDifferingLicences