Comment out DeriveAnyClass extensions

src/Dodge/Zoning/Pathing.hs

@@ -1,13 +1,13 @@
 module Dodge.Zoning.Pathing where
 
 import Data.Foldable
-import Dodge.Data.World
-import Dodge.Zoning.Base
-import Geometry
-import qualified IntMapHelp as IM
 import Data.Set (Set)
 import qualified Data.Set as Set
+import Dodge.Data.World
+import Dodge.Zoning.Base
 import Dodge.Zoning.Common
+import Geometry
+import qualified IntMapHelp as IM
 
 pnsNearPoint :: Point2 -> World -> [(Int, Point2)]
 pnsNearPoint = nearPoint pnZoneSize _pnZoning
@@ -32,6 +32,7 @@ zonePn pn = zoneMonoid (zoneOfPn pn) [pn]
 
 pesNearPoint :: Point2 -> World -> Set PathEdgeNodes
 pesNearPoint = nearPoint peZoneSize _peZoning
+
 --pesNearPoint p w = zoneExtract (zoneOfPoint peZoneSize p) (w ^. cWorld . lWorld . peZoning)
 
 pesNearSeg :: Point2 -> Point2 -> World -> Set PathEdgeNodes
@@ -49,7 +50,10 @@ peZoneSize = 50
 zoneOfPe :: PathEdgeNodes -> [Int2]
 zoneOfPe (PathEdgeNodes _ _ pe) = zoneOfSeg peZoneSize (_peStart pe) (_peEnd pe)
 
-zonePe :: PathEdgeNodes -> IM.IntMap (IM.IntMap (Set PathEdgeNodes)) -> IM.IntMap (IM.IntMap (Set PathEdgeNodes))
+zonePe ::
+    PathEdgeNodes ->
+    IM.IntMap (IM.IntMap (Set PathEdgeNodes)) ->
+    IM.IntMap (IM.IntMap (Set PathEdgeNodes))
 zonePe pe im = foldl' f im (zoneOfPe pe)
   where
     f im' i2 = zoneMonoid i2 (Set.singleton pe) im'