basic prompting framework

src/Mtlstats/Actions.hs

@@ -23,6 +23,8 @@ module Mtlstats.Actions
   ( startNewSeason
   , resetYtd
   , startNewGame
+  , addChar
+  , removeChar
   ) where
 
 import Lens.Micro (over, (&), (.~), (?~), (%~))
@@ -44,3 +46,11 @@ startNewGame :: ProgState -> ProgState
 startNewGame
   = (progMode .~ NewGame newGameState)
   . (database . dbGames %~ succ)
+
+-- | Adds a character to the input buffer
+addChar :: Char -> ProgState -> ProgState
+addChar = undefined
+
+-- | Removes a character from the input buffer (if possible)
+removeChar :: ProgState -> ProgState
+removeChar = undefined