Commit before making out and in placements have ids

src/Dodge/Room/LongDoor.hs

@@ -75,9 +75,7 @@ twinSlowDoorRoom w h x = defaultRoom
 
 twinSlowDoorChasers :: RandomGen g => State g Room
 twinSlowDoorChasers = do
-    let lps = V2 (-65) <$> [20,40 .. 180]
-        rps = V2 65 <$> [20,40 .. 180]
-    ps <- takeN 4 $ lps ++ rps
+    ps <- takeN 4 $ [ V2 x y | x <- [-65,65], y <- [20,40 .. 180] ]
     let plmnts = map (\p -> sPS p 0 $ PutCrit chaseCrit) ps
     return $ twinSlowDoorRoom 80 200 40 & rmPmnts %~ (plmnts ++)
 
@@ -116,7 +114,7 @@ addButtonSlowDoor x h rm = do
         $ amountedlight dr1 (-50)
         $ amountedlight dr2   50
         $ amountedlight dr2 (-50)
-        $ Nothing
+         Nothing
     getdoorpos drid w = let Just (a,b) = w ^? doors . ix drid . drPos
         in (b, argV (a-.-b))
     butPosCond = useRoomPosCond $ \rp -> isUnusedLnk rp && yV2 (_rpPos rp) < 0.5 * h