Further strictifying

src/Dodge/Layout.hs

@@ -52,7 +52,7 @@ setupForegroundEdgeVerxs :: World -> World
 setupForegroundEdgeVerxs w = w & foregroundEdgeVerx .~ polyhedrasToEdges (_foregroundDecorations w)
 
 polyhedrasToEdges :: [Polyhedra] -> [Point3]
-polyhedrasToEdges = concatMap flat4 . concatMap polyToEdges
+polyhedrasToEdges = concatMap tflat4 . concatMap polyToEdges
 
 -- | connects a collection (tree) of rooms together
 generateFromTree :: State StdGen (Tree Room) -> World -> World
@@ -68,7 +68,7 @@ generateFromTree t w = updateWallZoning $ placeSpots plmnts
     plmnts = concatMap _rmPS $ flatten tr
     path = pairsToGraph dist pairGraph
     pairGraph = makePath tr
-    insertPoint  pp@(_,(x,y)) = insertInZoneWith (floorHun x) (floorHun y) (++) [pp]
+    insertPoint  pp@(_,(V2 x y)) = insertInZoneWith (floorHun x) (floorHun y) (++) [pp]
     pinc = M.fromList $ pairsToIncidence pairGraph
 
 initializeStaticWalls :: World -> World
@@ -160,7 +160,7 @@ shiftRoomTreeConstruction (Node t ts) = (Node t [] :) $ concat $
     (_rmLinks t) 
     ts
   where 
-    f r = shiftRoomBy ( (0,0) -.- rotateV (pi-a) p , 0) $ shiftRoomBy ((0,0),pi-a)  r
+    f r = shiftRoomBy ( (V2 0 0) -.- rotateV (pi-a) p , 0) $ shiftRoomBy ((V2 0 0),pi-a)  r
       where 
         (p,a) = last $ _rmLinks r