Commit before making out and in placements have ids

src/Dodge/Room/Door.hs

@@ -34,7 +34,7 @@ switchDoorRoom = defaultRoom
     , _rmLinks = init lnks++ [last lnks]
     , _rmPath  = [(V2 20 35,V2 20 5)]
     , _rmPartPmnt = Just f
--- door extends into side walls (for shadows as rendered 12/03)
+-- door extends into side walls (for shadows as rendered 12/03/21)
 -- note no bounds
     }
   where