Cleanup unused datatypes

2025-08-19 18:11:31 +01:00
parent e1cfe7e163
commit 1cfb581e15
4 changed files with 4 additions and 69 deletions
@@ -117,7 +117,10 @@ makeTermLine :: String -> TerminalLine
 makeTermLine = makeColorTermLine termTextColor

 tlSetStatus :: TerminalStatus -> [TerminalLine]
-tlSetStatus x = [TLine 1 [] $ TmTmSetStatus x]
+tlSetStatus x = tlDoEffect $ TmTmSetStatus x
+
+tlDoEffect :: TmWdWd -> [TerminalLine]
+tlDoEffect x = [TLine 1 [] x]

 makeTermPara :: String -> [TerminalLine]
 makeTermPara = makeColorTermPara termTextColor