Cleanup
This commit is contained in:
@@ -25,7 +25,6 @@ makeButton col eff = defaultButton
|
||||
. soundFromGeneral (LeverSound 0) (btpos b) click1S Nothing $ w
|
||||
, _btText = "Button"
|
||||
, _btState = BtOff
|
||||
, _btTerminalParams = const NoTerminalParams
|
||||
}
|
||||
where
|
||||
turnOn bt = bt {_btState = BtNoLabel, _btEvent = const id}
|
||||
@@ -63,7 +62,6 @@ makeSwitchSPic dswitch effOn effOff = defaultButton
|
||||
, _btEvent = flipSwitch
|
||||
, _btText = "SWITCH/"
|
||||
, _btState = BtOff
|
||||
, _btTerminalParams = const NoTerminalParams
|
||||
}
|
||||
where
|
||||
flipSwitch b w = switchEffect b . soundFromGeneral (LeverSound 0) (bpos b) click1S Nothing $ w
|
||||
@@ -95,7 +93,6 @@ makeSwitch col1 col2 effOn effOff = defaultButton
|
||||
, _btEvent = flipSwitch
|
||||
, _btText = "SWITCH/"
|
||||
, _btState = BtOff
|
||||
, _btTerminalParams = const NoTerminalParams
|
||||
}
|
||||
where
|
||||
flipSwitch b w = switchEffect b . soundFromGeneral (LeverSound 0) (bpos b) click1S Nothing $ w
|
||||
|
||||
Reference in New Issue
Block a user