Comment out DeriveAnyClass extensions

src/Dodge/Layout.hs

@@ -5,6 +5,7 @@ module Dodge.Layout (
     shuffleRoomPos,
 ) where
 
+import qualified Data.Vector.Unboxed as UV
 import Dodge.Path.Translate
 import qualified Control.Foldl as L
 import Control.Lens
@@ -45,10 +46,14 @@ generateLevelFromRoomList gr' w =
         $ w & cWorld . lWorld . walls .~ wallsFromRooms rs
             & cWorld . cwGen . cwgGameRooms .~ gameRoomsFromRooms (IM.elems rs')
             & cWorld . pathGraph .~ path
+            & cWorld . incNode .~ inodes
+            & cWorld . incGraph .~ igraph
             & pnZoning .~ foldl' (flip zonePn) mempty (labNodes path)
             & peZoning .~ foldl' (flip zonePe) mempty (map fromEdgeTuple $ labEdges path)
+            & incNodeZoning .~ UV.ifoldl' (\m i p -> zonePn (i,p) m) mempty inodes
   where
     (_, path) = pairsToGraph . snapToGrid $ foldMap _rmPath rs
+    (inodes,igraph) = pairsToIncGraph . snapToGrid $ foldMap _rmPath rs
     rs = map doRoomShift $ IM.elems rs'
     rs' = mapM shuffleRoomPos gr' & evalState $ _randGen w