created post-initialization state

src/Password/App/Draw.hs

@@ -24,7 +24,7 @@ License along with this program.  If not, see
 
 module Password.App.Draw (drawFunc) where
 
-import Brick (Widget, txt, vBox)
+import Brick (Widget, emptyWidget, txt, vBox)
 import Brick.Forms (renderForm)
 import Lens.Micro ((^.))
 
@@ -34,6 +34,7 @@ import Password.App.Types
 drawFunc :: AppState -> [Widget ResName]
 drawFunc s = case s^.appMode of
   InitMode is -> drawPassForm is
+  _           -> [emptyWidget]
 
 drawPassForm :: InitState -> [Widget ResName]
 drawPassForm is =

src/Password/App/Event.hs

@@ -80,6 +80,7 @@ fallbackHandler :: BrickEvent ResName () -> EventM ResName AppState ()
 fallbackHandler e = gets (^.appMode) >>= \case
   InitMode _ -> zoom (appMode.initState.setPassForm) $
     handleFormEvent e
+  _ -> return ()
 
 getKeyDispatcher
   :: AppState

src/Password/App/Types.hs

@@ -29,6 +29,7 @@ module Password.App.Types (
   AppState (..),
   AppMode (..),
   InitState (..),
+  RunState (..),
   ResName (..),
   -- * Lenses
   -- ** AppState
@@ -37,9 +38,12 @@ module Password.App.Types (
   appMode,
   -- ** AppMode
   initState,
+  runState,
   -- ** InitState
   setPassForm,
   spfError,
+  -- ** RunState
+  mainPass,
   -- * Constructors
   mkInitialState,
   ) where
@@ -65,10 +69,14 @@ data AppState = AppState
   }
 
 -- | The applicaiton's mode
-newtype AppMode = InitMode
+data AppMode
+  = InitMode
     { _initState :: InitState
     -- ^ Initialization state
-  }
+    } -- ^ initialization mode (master password form)
+  | RunMode
+    { _runState :: RunState
+    } -- ^ Running mode
 
 -- | Application initialization state
 data InitState = InitState
@@ -78,6 +86,12 @@ data InitState = InitState
   -- ^ error message
   }
 
+-- | State of the initialized application
+newtype RunState = RunState
+  { _mainPass :: String
+  -- ^ The main password
+  }
+
 -- | Resource identifier
 data ResName
   = PassField
@@ -88,6 +102,7 @@ concat <$> mapM makeLenses
   [ ''AppState
   , ''AppMode
   , ''InitState
+  , ''RunState
   ]
 
 -- | Builds an initial state