Cleanup

2025-08-19 17:29:36 +01:00
parent 2f9cea1b69
commit b07280e50c
13 changed files with 107 additions and 280 deletions
@@ -17,7 +17,7 @@ putTerminal :: Color -> Machine -> Terminal -> Placement
 putTerminal col mc tm =
    ps0PushPS (PutTerminal (tm & tmExternalColor .~ col)) $
        \tmpl -> Just $
-            ps0PushPS (PutButton termButton) $
+            ps0PushPS (PutButton defaultButton) $
                \btpl -> Just $
                    pt0
                        ( PutMachine
@@ -48,14 +48,5 @@ putMessageTerminal col =
            & mcType .~ McTerminal
            & mcHP .~ 100

-termButton :: Button
-termButton =
-    Button
-        { _btPos = 0
-        , _btRot = 0
-        , _btEvent = ButtonAccessTerminal 0
-        , _btID = 0
-        }
-
 terminalColor :: Color
 terminalColor = dark magenta