use LTS 20.19 resolver

app/Types.hs

@@ -26,7 +26,7 @@ module Types (Status (Status), gen, dbPath, masterPass, database) where
 
 import Lens.Micro (set, (^.))
 import Lens.Micro.TH (makeLenses)
-import System.Random (RandomGen (next, split), StdGen)
+import System.Random (RandomGen (genWord64, split), StdGen)
 
 import Password
 
@@ -40,8 +40,8 @@ data Status = Status
 makeLenses ''Status
 
 instance RandomGen Status where
-  next s = (x, s') where
-    (x, g') = next g
+  genWord64 s = (x, s') where
+    (x, g') = genWord64 g
     s' = set gen g' s
     g = s^.gen
   split s = (s1, s2) where