Make pathedge zoning use sets, probably doesn't help

2022-08-24 14:01:39 +01:00
parent 13b07b53ce
commit 6973663055
16 changed files with 68 additions and 53 deletions
@@ -9,6 +9,7 @@ module Dodge.Data.Block (
    module Dodge.Data.PathGraph,
 ) where

+import Data.Set (Set)
 import Color
 import Control.Lens
 import Data.Aeson
@@ -30,7 +31,7 @@ data Block = Block
    , _blHeight :: Float
    , _blMaterial :: Material
    , _blDraw :: BlockDraw --Block -> SPic
-    , _blObstructs :: [(Int, Int, PathEdge)]
+    , _blObstructs :: Set (Int, Int, PathEdge)
    }
    deriving (Eq, Ord, Show, Read) --Generic, Flat)