Cleanup

src/Dodge/Data/Terminal.hs

@@ -31,7 +31,7 @@ data TerminalBootProgram
 
 data Terminal = Terminal
     { _tmID :: Int
-    , _tmBootProgram :: TerminalBootProgram -- Terminal -> World -> [TerminalLine]
+    , _tmBootProgram :: TerminalBootProgram
     , _tmButtonID :: Int
     , _tmMachineID :: Int
     , _tmName :: String
@@ -46,6 +46,7 @@ data Terminal = Terminal
     , _tmStatus :: TerminalStatus
     , _tmCommandHistory :: [String]
     , _tmToggles :: M.Map String TerminalToggle
+    , _tmPartialCommand :: Maybe String
     }
     --deriving (Eq, Show, Read) --, Generic)
     --h--deriving (Eq, Show, Read) --Generic, Flat)
@@ -57,6 +58,7 @@ data TmTm
     = TmId
     | TmTmClearDisplayedLines
     | TmTmSetStatus TerminalStatus
+    | TmTmSetPartialCommand (Maybe String)
     --deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data TerminalLine