module Utils.Room
  ( roomReferenceText
  ) where

import Import.NoModel
import Model.Types.Room

roomReferenceText :: RoomReference -> Text
roomReferenceText = \case
  RoomReferenceSimple{roomRefText} -> roomRefText
  RoomReferenceLink{roomRefLink} -> pack $ uriToString id roomRefLink mempty