Work on press-continue terminal prompts

src/Dodge/Data/Input.hs

@@ -29,6 +29,7 @@ data MouseContext
     | OverCombFilter
     | OverCombEscape
     | OverTerminalReturn {_mcoTermID :: Int}
+    | OverTerminalContinue {_mcoTermID :: Int}
     | OverTerminalEscape
     | MouseGameRotate
     deriving (Show)

src/Dodge/Data/Terminal.hs

@@ -36,7 +36,6 @@ data Terminal = Terminal
     , _tmStatus :: TerminalStatus
     , _tmCommandHistory :: [String]
     , _tmToggles :: M.Map String TerminalToggle
---    , _tmPartialCommand :: Maybe TerminalCommand
     }
 
 data TerminalLineString = TerminalLineConst String Color
@@ -77,7 +76,7 @@ data TerminalCommandEffect
 --    , _tcEffect :: TerminalCommandEffect -- Terminal -> World -> EffectArguments
 --    }
 
-data TCom = TCInfo String String
+data TCom = TCInfo String String -- this may not be necessary, to revisit
     | TCBase
     | TCDamageCommand
     | TCSensorInfo

src/Dodge/Data/Terminal/Status.hs

@@ -9,7 +9,7 @@ import Data.Aeson.TH
 
 data TerminalStatus
     = TerminalOff
-    | TerminalBusy
+    | TerminalLineRead
     | TerminalTextInput {_tiText :: String}
     | TerminalPressTo {_tptString :: String}
     deriving (Eq)

src/Dodge/Data/WorldEffect.hs

@@ -20,7 +20,7 @@ data ItCrWdWd = ItCrWdItemHeldEffect
 data WdWd
     = NoWorldEffect
     | SetTrigger Bool Int
-    | WorldEffects [WdWd]
+    | WorldEffects [WdWd] -- probably best to avoid recursive types if possible...
     | SetLSCol Point3 Int
     | AccessTerminal (Maybe Int)
     | UnlockInv