Start simplifying buttons

2025-06-25 15:16:11 +01:00
parent ab1b939e3d
commit bf0bc22720
8 changed files with 16 additions and 11 deletions
@@ -51,7 +51,7 @@ data Button = Button
    , _btRot :: Float
    , _btEvent :: ButtonEvent --Button -> World -> World
    , _btID :: Int
-    , _btText :: String
+--    , _btText :: String
    , _btState :: ButtonState
    , _btTermMID :: Maybe Int
    , _btName :: String