initialize random number generator

src/Password/App.hs

@@ -36,8 +36,10 @@ import Brick
   , style
   )
 
+import Password.App.Types
+
 -- | The main application
-passmanApp :: App () () ()
+passmanApp :: App AppState () ()
 passmanApp = App
   { appDraw         = drawFunc
   , appChooseCursor = neverShowCursor
@@ -46,10 +48,10 @@ passmanApp = App
   , appAttrMap      = const $ attrMap (style 0) []
   }
 
-drawFunc :: () -> [Widget ()]
+drawFunc :: AppState -> [Widget ()]
 drawFunc = const [emptyWidget]
 
-eventHandler :: BrickEvent () () -> EventM () () ()
+eventHandler :: BrickEvent () () -> EventM () AppState ()
 eventHandler = const halt
 
 --jl