Commit before making terminals there own entities

src/Dodge/Default.hs

@@ -220,6 +220,7 @@ defaultMachine = Machine
     , _mcLSs = []
     , _mcType = StaticMachine
     , _mcName = ""
+    , _mcTermMID = Nothing
     }
 defaultMachineUpdate :: Machine -> World -> World
 defaultMachineUpdate mc
@@ -241,7 +242,21 @@ defaultDrawButton col bt =
         | otherwise = rectNSEW 2 (-1) width (-width)
     width = 8
 defaultTerminal :: Terminal
-defaultTerminal = Terminal 0 (\_ _ -> NoTerminalParams) 0 0 "TESTTERMINAL"
+defaultTerminal = Terminal 
+    { _tmID = 0 
+    , _tmProgram = (\_ _ -> NoTerminalParams)
+    , _tmButtonID = 0 
+    , _tmMachineID = 0 
+    , _tmName = "TESTTERMINAL"
+    , _tmDisplayedLines = []
+    , _tmFutureLines = []
+    , _tmTitle = "TERMINAL IN LOCATION"
+    , _tmSel   = Nothing
+    , _tmInput = Nothing
+    , _tmScrollCommands = []
+    , _tmWriteCommands  = []
+    , _tmDeathEffect    = const id
+    }
 
 defaultButton :: Button
 defaultButton = Button
@@ -253,7 +268,7 @@ defaultButton = Button
     , _btID = 0
     , _btText = "Button"
     , _btState = BtOff
-    , _btTerminal = Nothing
+    , _btTermMID = Nothing
     , _btName = ""
     }
 defaultPT :: Prop