From a314f64a70d9e7e427383c8d656d9bdceed5f9f3 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Wed, 17 Mar 2021 00:19:45 +0100 Subject: [PATCH] fix: weight random token impersonation towards active users --- src/Handler/Admin/Tokens.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Handler/Admin/Tokens.hs b/src/Handler/Admin/Tokens.hs index fbbd6e1de..949b0895f 100644 --- a/src/Handler/Admin/Tokens.hs +++ b/src/Handler/Admin/Tokens.hs @@ -141,7 +141,7 @@ postAdminTokensR = do , E.maybe E.nothing (E.just . E.diffTimes (E.val now)) $ user E.^. UserLastAuthentication ) let users :: Map UserId (Maybe Rational) - users = Map.fromList $ users'' <&> \(E.Value uid', E.Value mDiff) -> (uid', toRational <$> mDiff) + users = Map.fromList $ users'' <&> \(E.Value uid', E.Value mDiff) -> (uid', recip . toRational <$> mDiff) chooseUsers :: ConduitT () UserId (Rand Crypto.ChaChaDRG) () chooseUsers = C.unfoldM chooseUsers' (users, btfiCount) where chooseUsers' (users', n) = runMaybeT $ do