fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix: weight random token impersonation towards active users

Browse Source
This commit is contained in:
Gregor Kleen 2021-03-17 00:19:45 +01:00
parent e0e13e74f1
commit a314f64a70
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Admin/Tokens.hs
View File

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