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

Fix pseudonym generation

Browse Source
This commit is contained in:
Gregor Kleen 2018-10-15 01:34:16 +02:00
parent 788b53946a
commit 4266683b15
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Model/Types.hs
View File

@ -547,8 +547,8 @@ instance PersistFieldSql Pseudonym where
sqlType _ = SqlInt32 sqlType _ = SqlInt32
instance Random Pseudonym where instance Random Pseudonym where
randomR (lo, hi) gen = over _1 (fromIntegral :: Word32 -> Pseudonym) $ randomR (min 0 $ fromIntegral lo, max 0b111111111111 $ fromIntegral hi) gen randomR (max minBound -> lo, min maxBound -> hi) gen = over _1 (fromIntegral :: Word32 -> Pseudonym) $ randomR (fromIntegral lo, fromIntegral hi) gen
random = randomR (0, 0b111111111111) random = randomR (minBound, maxBound)
pseudonymWordlist :: [CI Text] pseudonymWordlist :: [CI Text]
pseudonymWordlist = $(wordlist "config/wordlist.txt") pseudonymWordlist = $(wordlist "config/wordlist.txt")