Work toward adding wiring

src/Dodge/Default/Room.hs

@@ -1,7 +1,7 @@
 module Dodge.Default.Room
     where
 import Geometry.Data
-import Dodge.Room.Data
+import Dodge.LevelGen.Data
 
 defaultRoom :: Room
 defaultRoom = Room
@@ -10,14 +10,15 @@ defaultRoom = Room
     , _rmPos    = []
     , _rmPath   = []
     , _rmPmnts  = []
-    , _rmPartialPmnt    = Nothing
-    , _rmExtendedPmnt   = Nothing
-    , _rmBound  = []
-    , _rmFloor  = []
-    , _rmName   = "defaultRoom"
-    , _rmShift  = (V2 0 0 , 0)
+    , _rmPartPmnt   = Nothing
+    , _rmExtPmnt    = Nothing
+    , _rmBound      = []
+    , _rmFloor      = []
+    , _rmName       = "defaultRoom"
+    , _rmShift      = (V2 0 0 , 0)
     , _rmViewpoints = []
-    , _rmRandPSs = []
-    , _rmLabel    = Nothing
-    , _rmTakeFrom = Nothing
+    , _rmRandPSs    = []
+    , _rmLabel      = Nothing
+    , _rmTakeFrom   = Nothing
+    , _rmWires      = []
     }