created initialEditor

src/Hamming/App/Types.hs

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