Move towards inputs in terminal

2022-06-01 14:34:16 +01:00
parent b54864bbda
commit 2cedc1b968
13 changed files with 90 additions and 64 deletions
@@ -28,7 +28,7 @@ makeButton col eff = Button
    , _btID = 0
    , _btText = "Button"
    , _btState = BtOff
-    , _btTerminalParams = NoTerminalParams
+    , _btTerminalParams = const NoTerminalParams
    }
  where
    turnOn bt = bt {_btState = BtNoLabel, _btEvent = const id}
@@ -69,7 +69,7 @@ makeSwitchSPic dswitch effOn effOff = Button
    , _btID = 0
    , _btText = "SWITCH/"
    , _btState = BtOff
-    , _btTerminalParams = NoTerminalParams
+    , _btTerminalParams = const NoTerminalParams
    }
  where 
    flipSwitch b w = switchEffect b . soundFromGeneral (LeverSound 0) (bpos b) click1S Nothing $ w
@@ -104,7 +104,7 @@ makeSwitch col1 col2 effOn effOff = Button
    , _btID = 0
    , _btText = "SWITCH/"
    , _btState = BtOff
-    , _btTerminalParams = NoTerminalParams
+    , _btTerminalParams = const NoTerminalParams
    }
  where 
    flipSwitch b w = switchEffect b . soundFromGeneral (LeverSound 0) (bpos b) click1S Nothing $ w