module Dodge.RoomPos where import Dodge.Data.GenWorld import Geometry extractRoomPos :: RoomPos -> (Point2, Float) extractRoomPos rp = (_rpPos rp, _rpDir rp)