Add airlocks

src/Dodge/Base.hs

@@ -735,7 +735,7 @@ nearestCrInFront p dir x w
 {- | Test whether a creature is in a polygon.
  -}
 crInPolygon :: Creature -> [Point2] -> Bool
-crInPolygon cr xs = errorPointInPolygon 3 (_crPos cr) xs
+crInPolygon cr = errorPointInPolygon 3 (_crPos cr)
 
 {- | Transform coordinates from world position to normalised screen coordinates.
  -}