Allow arbitrary changes to a room when using a link slot

src/Dodge/Wire.hs

@@ -0,0 +1,10 @@
+module Dodge.Wire where
+import Dodge.LevelGen.Data
+import Dodge.Room.Link
+import Geometry
+
+import qualified Data.IntMap.Strict as IM
+import Control.Lens
+
+putWireEnd :: Int -> (Point2,Float) -> Room -> Room
+putWireEnd i pos rm = rm  & rmEndWires %~ IM.insert i (uncurry RoomWire $ invShiftLinkBy (_rmShift rm) pos)