-- returns the current floor items
getFloorItems :: State -> ItemSet
getFloorItems s@(State f _) = getFloorItems' s f
getFloorItems :: State -> ItemSet
getFloorItems s@(State f _) = getFloorItems' s f
getFloorItems s@(State f _) = getFloorItems' s f