Commit before unifying placements in rooms (in/out)

src/Dodge/Room/Door.hs

@@ -31,7 +31,7 @@ door = defaultRoom
 triggerDoorRoom :: Int -> Room
 triggerDoorRoom inplid = defaultRoom
     { _rmPolys  = [rectNSWE 40 0 0 40]
-    , _rmLinks  = init lnks++ [last lnks]
+    , _rmLinks  = [uncurry outLink (V2 20 35,0) ,uncurry inLink(V2 20  5,pi) ]
     , _rmPath   = [(V2 20 35,V2 20 5)]
     , _rmInPmnt = [InPlacement f inplid]
     , _rmName   = "triggerDoorRoom"
@@ -39,10 +39,6 @@ triggerDoorRoom inplid = defaultRoom
 -- note no bounds
     }
   where 
-    lnks = [uncurry outLink (V2 20 35,0)
-        ,uncurry inLink(V2 20  5,pi)
-        ]
     f (pmnt:_) = putDoubleDoor False red (cond pmnt) (V2 0 20) (V2 40 20) 2
     f _ = error "tried to put a door using an empty placement list"
     cond pmnt w = w & _triggers w IM.! fromJust (_plMID pmnt)
-