Move main to allow for new executables

src/Dodge/Layout.hs

@@ -68,7 +68,7 @@ generateFromTree t w = updateWallZoning $ placeSpots plmnts
     plmnts = concatMap _rmPS $ flatten tr
     path = pairsToGraph dist pairGraph
     pairGraph = makePath tr
-    insertPoint  pp@(_,(V2 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 ( (V2 0 0) -.- rotateV (pi-a) p , 0) $ shiftRoomBy ((V2 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