Move main to allow for new executables

2021-08-11 17:54:48 +02:00
parent b74bb45a4c
commit 4bbe5d0cf1
64 changed files with 521 additions and 345 deletions
@@ -15,7 +15,7 @@ makeButton
    -> Button
 makeButton c eff = Button
    { _btPict = setLayer 0 . onLayer WlLayer $ color c $ polygon $ rectNSEW 5 (-5) 10 (-10)
-    , _btPos = (V2 0 0)
+    , _btPos = V2 0 0
    , _btRot = 0
    , _btEvent = \b w -> eff . over buttons (IM.adjust turnOn (_btID b))
 --                                . set (buttons . ix (_btID b) . btPict) 
@@ -39,7 +39,7 @@ makeSwitch
    -> Button
 makeSwitch c effOn effOff = Button
    { _btPict = offPict
-    , _btPos = (V2 0 0)
+    , _btPos = V2 0 0
    , _btRot = 0
    , _btEvent = flipSwitch
    , _btID = 0