From e20dda8c9f00af4d3c52cd34180d11178ad35661 Mon Sep 17 00:00:00 2001 From: Jonathan Lamothe Date: Fri, 26 Jul 2024 19:38:31 -0400 Subject: [PATCH] created initialEditor --- src/Hamming/App/Types.hs | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/Hamming/App/Types.hs b/src/Hamming/App/Types.hs index f51aa9f..edabd0d 100644 --- a/src/Hamming/App/Types.hs +++ b/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