Comment out DeriveAnyClass extensions

2025-10-19 21:50:43 +01:00
parent b8f6a29e28
commit 2056d8ba0e
91 changed files with 356 additions and 359 deletions
@@ -45,6 +45,12 @@ data PathEdge = PathEdge
    }
    deriving (Eq, Ord, Show, Read) --Generic, Flat)

+data SimpleEdge = SimpleEdge
+    { _seDist :: Float
+    , _seObstacles :: Set.Set EdgeObstacle
+    }
+    deriving (Eq, Ord, Show, Read) --Generic, Flat)
+
 data EdgeObstacle
    = BlockObstacle
    | DoorObstacle
@@ -63,8 +69,10 @@ data EdgeObstacle
 --makeLenses ''PathGraph
 makeLenses ''PathEdge
 makeLenses ''PathEdgeNodes
+makeLenses ''SimpleEdge
 deriveJSON defaultOptions ''EdgeObstacle
 deriveJSON defaultOptions ''PathEdge
 deriveJSON defaultOptions ''PathEdgeNodes
 deriveJSON defaultOptions ''Gr
+deriveJSON defaultOptions ''SimpleEdge
 --deriveJSON defaultOptions ''PathGraph