Commit before making all walls zoned

src/Dodge/LevelGen/TriggerDoor.hs

@@ -32,7 +32,7 @@ addButtonDoor c btp btr a b speed w
     $ set pathPoints (foldr insertPoint IM.empty (labNodes newGraph))
     $ set pathGraph newGraph
     $ set pathGraphP newGraphPairs
-    $ (snd $ putSingleDoor False c cond a b speed w)
+    $ snd (putSingleDoor False c cond a b speed w)
   where 
     bid = IM.newKey $ _buttons w
     cond w' = BtNoLabel == _btState (_buttons w' IM.! bid)
@@ -90,7 +90,7 @@ doorMechanismStepwise nsteps drid wlids pss dr w
     playSound = soundContinue (WallSound drid) (fst $ head pss) slideDoorS (Just 1)
     toOpen = _drTrigger dr w
     cpss = uncurry (rectanglePairs 9) (head pss)
-    setWalls n = (playSound $ foldl' setWall w (zip3 wlids newps cpss))
+    setWalls n = playSound (foldl' setWall w (zip3 wlids newps cpss))
         & doors . ix drid . drStatus .~ DoorInt n
       where
         newps = uncurry (rectanglePairs 9) (pss !! n)