Fix button not updating bug

2022-06-14 18:47:11 +01:00
parent dafbd8a2da
commit 0957c79e58
10 changed files with 51 additions and 67 deletions
@@ -77,15 +77,16 @@ putTerminal col f = putTerminal'' (mc & mcColor .~ col) f (\_ -> basicMachineUpd

 termButton :: Button
 termButton = Button
-    { _btPict = const mempty
-    , _btPos = 0
-    , _btRot = 0
-    , _btEvent = accessTerminal . _btTermMID
-    , _btID = 0
-    , _btText = "TERMINAL"
-    , _btState = BtOff
+    { _btPict   = const mempty
+    , _btPos    = 0
+    , _btRot    = 0
+    , _btEvent  = accessTerminal . _btTermMID
+    , _btID     = 0
+    , _btText   = "TERMINAL"
+    , _btState  = BtOff
    , _btTermMID = Nothing
-    , _btName = ""
+    , _btName   = ""
+    , _btColor  = dark magenta
    }

 terminalColor :: Color