Make pathedge zoning use sets, probably doesn't help

src/Dodge/Block.hs

@@ -1,5 +1,6 @@
 module Dodge.Block where
 
+import Data.Set (Set)
 import Dodge.Data.MountedObject
 import Control.Lens
 import Data.Foldable
@@ -64,7 +65,7 @@ destroyBlock bl w =
     ps = replicateM 25 (randInCirc 20) & evalState $ _randGen w
 
 -- this does not handle eg doors blocking the path as well
-maybeClearPaths :: [(Int, Int, PathEdge)] -> World -> World
+maybeClearPaths :: Set (Int, Int, PathEdge) -> World -> World
 maybeClearPaths ps w = foldl' maybeClearPath w ps
 
 maybeClearPath :: World -> (Int, Int, PathEdge) -> World