Attempt to improve perfomance

2022-08-25 09:52:12 +01:00
parent 6973663055
commit 920bfdbc8e
18 changed files with 60 additions and 311 deletions
@@ -31,7 +31,7 @@ data Block = Block
    , _blHeight :: Float
    , _blMaterial :: Material
    , _blDraw :: BlockDraw --Block -> SPic
-    , _blObstructs :: Set (Int, Int, PathEdge)
+    , _blObstructs :: Set PathEdgeNodes
    }
    deriving (Eq, Ord, Show, Read) --Generic, Flat)