Cleanup

2025-06-26 12:17:08 +01:00
parent d0f20da9f1
commit ab82bcbe20
9 changed files with 103 additions and 117 deletions
@@ -18,7 +18,7 @@ triggerSwitchSPic c1 c2 ps = psPtCont ps (PutTrigger False) $
            pContID
                ps
                ( PutButton
-                    ( makeSwitchSPic
+                    ( makeSwitch
                        c1 c2
                        (SetTrigger True $ trigid tp)
                        (SetTrigger False $ trigid tp)
@@ -36,7 +36,7 @@ triggerSwitchSPicLight c1 c2 ps = psPtCont ps (PutTrigger False) $
                Just $
                    pContID
                        ps
-                        (PutButton (makeSwitchSPic c1 c2 (oneff lsid $ trigid tp) (offeff lsid $ trigid tp)))
+                        (PutButton (makeSwitch c1 c2 (oneff lsid $ trigid tp) (offeff lsid $ trigid tp)))
                        (const Nothing)
  where
    thels = lsColPosRad (V3 0.5 0 0) (V3 0 0 78) 75