handle events for password entry form

2024-09-07 20:41:43 -04:00
parent ffce0d6a1c
commit d049c40b7a
4 changed files with 94 additions and 7 deletions
--- a/src/Password/App.hs
+++ b/src/Password/App.hs
@@ -26,15 +26,13 @@ module Password.App (passmanApp) where

 import Brick
  ( App (..)
-  , BrickEvent
-  , EventM
  , attrMap
-  , halt
  , showFirstCursor
  , style
  )

 import Password.App.Draw
+import Password.App.Event
 import Password.App.Types

 -- | The main application
@@ -47,7 +45,4 @@ passmanApp = App
  , appAttrMap      = const $ attrMap (style 0) []
  }

-eventHandler :: BrickEvent ResName () -> EventM ResName AppState ()
-eventHandler = const halt
-
 --jl