Add wire to central laser room

2021-11-21 19:14:17 +00:00
parent 2f3896345d
commit afeb9d2b64
9 changed files with 57 additions and 35 deletions
@@ -25,7 +25,7 @@ triggerSwitchSPic sdraw ps = psPtCont ps (PutTrigger (const False))

 triggerSwitchSPicLight :: (Button -> SPic) -> PlacementSpot -> Placement
 triggerSwitchSPicLight sdraw ps = psPtCont ps (PutTrigger (const False))
-    $ \tp -> Just $ pContID fstLnkOut (PutLS thels)
+    $ \tp -> Just $ pContID atFstLnkOut (PutLS thels)
    $ \lsid -> Just 
        $ pContID ps (PutButton (makeSwitchSPic sdraw (oneff lsid $ trigid tp) (offeff lsid $ trigid tp))) 
                    (const Nothing)