Partially successful change of terminals to external entities

2022-06-06 12:49:14 +01:00
parent 597336499c
commit eb38874102
12 changed files with 141 additions and 167 deletions
@@ -244,7 +244,7 @@ defaultDrawButton col bt =
 defaultTerminal :: Terminal
 defaultTerminal = Terminal 
    { _tmID = 0 
-    , _tmProgram = (\_ _ -> NoTerminalParams)
+    , _tmProgram = (\_ _ -> [])
    , _tmButtonID = 0 
    , _tmMachineID = 0 
    , _tmName = "TESTTERMINAL"
@@ -257,6 +257,7 @@ defaultTerminal = Terminal
    , _tmScrollCommands = []
    , _tmWriteCommands  = []
    , _tmDeathEffect    = const id
+    , _tmStatus = Disconnected
    }

 defaultButton :: Button