Some cleanup, sidetracked from inter-room placements

src/Dodge/Room/Link.hs

@@ -1,10 +1,8 @@
-{-
-Concerns link pairs of rooms.
+{- Concerns link pairs of rooms.
 Link pairs determine where rooms can attach to each other; each pair consists
 of a position and a rotation.
 The last link in the list is considered the incoming link, the other links are
-the outgoing links.
--}
+the outgoing links.  -}
 module Dodge.Room.Link
     ( shiftRoomToLink
     , shiftRoomBy
@@ -111,5 +109,5 @@ setLastLinkToUsed :: Room -> Room
 setLastLinkToUsed rm = case _rmLinks rm of
     (_:_) -> rm
         & rmLinks %~ init
-        & rmUsedLinks %~ (uncurry InLink (last (_rmLinks rm)) :)
+        & rmPos %~ (uncurry InLink (last (_rmLinks rm)) :)
     _ -> rm