Broken: refactor terminals

2022-07-25 00:45:15 +01:00
parent d1bf49319a
commit d219d8d889
25 changed files with 505 additions and 364 deletions
@@ -0,0 +1,9 @@
+module Dodge.TmTm
+    where
+import Dodge.Data.Terminal
+import Control.Lens
+doTmTm :: TmTm -> Terminal -> Terminal
+doTmTm tmtm = case tmtm of
+    TmTmClearDisplayedLines -> tmDisplayedLines .~ []
+    TmTmSetStatus s -> tmStatus .~ s
+