Small cleanup

2025-09-23 17:17:27 +01:00
parent 60fdd138e3
commit 4074c40083
5 changed files with 4 additions and 5 deletions
@@ -47,7 +47,7 @@ decontamRoom i =
        & rmBound .~ [rectNSWE 75 15 0 40, switchcut]
  where
    f gw = fromMaybe (error "tried to put a door using an empty placement list") $ do
-        pmnt <- gw ^? genPmnt . ix i . _head
+        pmnt <- gw ^? genPmnt . ix i
        return $ putDoubleDoor DoorObstacle (switchWallCol red) (cond pmnt) 
            (V2 (-10) 35) 
            (V2 (-10) 65)