From 4266683b153bc5d9b9051dc7492c9465ac6ce776 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Mon, 15 Oct 2018 01:34:16 +0200
Subject: [PATCH] Fix pseudonym generation

---
 src/Model/Types.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Model/Types.hs b/src/Model/Types.hs
index 5643349cf..afb60da3c 100644
--- a/src/Model/Types.hs
+++ b/src/Model/Types.hs
@@ -547,8 +547,8 @@ instance PersistFieldSql Pseudonym where
   sqlType _ = SqlInt32
 
 instance Random Pseudonym where
-  randomR (lo, hi) gen = over _1 (fromIntegral :: Word32 -> Pseudonym) $ randomR (min 0 $ fromIntegral lo, max 0b111111111111 $ fromIntegral hi) gen
-  random = randomR (0, 0b111111111111)
+  randomR (max minBound -> lo, min maxBound -> hi) gen = over _1 (fromIntegral :: Word32 -> Pseudonym) $ randomR (fromIntegral lo, fromIntegral hi) gen
+  random = randomR (minBound, maxBound)
 
 pseudonymWordlist :: [CI Text]
 pseudonymWordlist = $(wordlist "config/wordlist.txt")