Cleanup

src/Dodge/Terminal.hs

@@ -2,7 +2,7 @@
 
 module Dodge.Terminal (
     makeTermLine,
-    connectionBlurbLines,
+    textInputBlurb,
     textTerminal,
     simpleTermMessage,
     damageCodeCommand,
@@ -33,19 +33,16 @@ import LensHelp
 import Sound.Data
 
 textTerminal :: Terminal
-textTerminal = defaultTerminal{_tmBootLines = connectionBlurb}
+textTerminal = defaultTerminal{_tmBootLines = textInputBlurb []}
 
-connectionBlurbLines :: [TerminalLine] -> [TerminalLine]
-connectionBlurbLines tls =
+textInputBlurb :: [TerminalLine] -> [TerminalLine]
+textInputBlurb tls =
     [ termSoundLine computerBeepingS
     , TLine 0 [TerminalLineConst "LOADING TEXT INTERFACE..." termTextColor] TmWdId
     ]
         ++ tls
         ++ [TLine 10 [TerminalLineConst "READY FOR INPUT" termTextColor] (TmTmSetStatus (TerminalTextInput ""))]
 
-connectionBlurb :: [TerminalLine]
-connectionBlurb = connectionBlurbLines []
-
 termSoundLine :: SoundID -> TerminalLine
 termSoundLine sid = TLine 0 [] (TmWdWdTermSound sid)