Small cleanup

src/Dodge/Room/Airlock.hs

@@ -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) 

src/Dodge/Room/Door.hs

@@ -41,7 +41,7 @@ triggerDoorRoom i =
         }
   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 0 20) (V2 40 20) 2
     cond pmnt = WdTrig $ fromJust (_plMID pmnt)