render the master password form

src/Password/App.hs

@@ -28,29 +28,25 @@ import Brick
   ( App (..)
   , BrickEvent
   , EventM
-  , Widget
   , attrMap
-  , emptyWidget
   , halt
-  , neverShowCursor
+  , showFirstCursor
   , style
   )
 
+import Password.App.Draw
 import Password.App.Types
 
 -- | The main application
 passmanApp :: App AppState () ResName
 passmanApp = App
   { appDraw         = drawFunc
-  , appChooseCursor = neverShowCursor
+  , appChooseCursor = showFirstCursor
   , appHandleEvent  = eventHandler
   , appStartEvent   = return ()
   , appAttrMap      = const $ attrMap (style 0) []
   }
 
-drawFunc :: AppState -> [Widget ResName]
-drawFunc = const [emptyWidget]
-
 eventHandler :: BrickEvent ResName () -> EventM ResName AppState ()
 eventHandler = const halt