Improve tab completion, cleanup

src/Dodge/Terminal.hs

@@ -61,7 +61,6 @@ getCommand w tm = \case
     TCInfo x z -> PTE.singleton x (PTE.singleton "" (makeTermPara z))
     TCBase -> helpCommand <> quitCommand <> toggleCommands tm
     TCDamageCommand -> damageCodeCommand w
---    TCToggles -> toggleCommand tm
     TCSensorInfo -> sensorCommand w tm
 
 damageCodeCommand :: World -> PTE.TrieMap Char (PTE.TrieMap Char [TerminalLine])
@@ -156,7 +155,7 @@ tabComplete s' w tm = case PTE.lookup s $ getCommands w tm of
                 .~ ( makeColorTermPara
                         commandColor
                         (unwords xs)
-                        <> [TLine 1 [] . TmTmSetStatus $ TerminalTextInput s]
+                        <> [TLine 1 [] . TmTmSetStatus $ TerminalTextInput s']
                    )
 
 --damageCodeCommand :: TerminalCommand