Allow arbitrary changes to a room when using a link slot

src/Dodge/Default/Room.hs

@@ -2,11 +2,13 @@ module Dodge.Default.Room
     where
 import Geometry.Data
 import Dodge.LevelGen.Data
+import qualified Data.IntMap.Strict as IM
 
 defaultRoom :: Room
 defaultRoom = Room
     { _rmPolys  = []
     , _rmLinks  = []
+    , _rmLinkEff = []
     , _rmPos    = []
     , _rmPath   = []
     , _rmPmnts  = []
@@ -20,5 +22,6 @@ defaultRoom = Room
     , _rmRandPSs    = []
     , _rmLabel      = Nothing
     , _rmTakeFrom   = Nothing
-    , _rmWires      = []
+    , _rmStartWires = IM.empty
+    , _rmEndWires   = IM.empty
     }