Allow to log position of placement spot

src/Dodge/Data/Room.hs

@@ -16,7 +16,7 @@ data RoomPos = RoomPos
     , _rpDir :: Float
     , _rpType :: S.Set RoomPosType
     , _rpLinkStatus :: RPLinkStatus
-    , _rpPlacementUse :: Int
+    , _rpPlacementUse :: S.Set UsedPos
     }
     deriving (Eq, Ord, Show)
 
@@ -80,6 +80,7 @@ data UsedPos
     = UsedPosLow
     | UsedPosMid
     | UsedPosHigh
+    | UsedPosFloor
     deriving (Eq, Ord, Show)
 
 makeLenses ''RoomLink