created initialEditor

This commit is contained in:
Jonathan Lamothe 2024-07-26 19:38:31 -04:00
parent e95c3a73f3
commit e20dda8c9f

View File

@ -47,6 +47,7 @@ module Hamming.App.Types (
Handler, Handler,
-- * Constructors -- * Constructors
initialState, initialState,
initialEditor,
) where ) where
import Brick.Types (BrickEvent, EventM) import Brick.Types (BrickEvent, EventM)
@ -93,4 +94,8 @@ concat <$> mapM makeLenses
initialState :: AppState initialState :: AppState
initialState = AppState DisplayMode 0 initialState = AppState DisplayMode 0
-- | Initial editor state
initialEditor :: EditState
initialEditor = EditState 0 0
--jl --jl