module Data.ByteString.IsoBaseFileFormat.Boxes.DataEntryUrn
(DataEntryUrn()
,dataEntryUrn
)
where
import Data.ByteString.IsoBaseFileFormat.Box
import Data.ByteString.IsoBaseFileFormat.Util.FullBox
import qualified Data.Text as T
newtype DataEntryUrn =
DataEntryUrn (T.Text :+ T.Text)
deriving (IsBoxContent)
dataEntryUrn
:: Bool -> T.Text -> T.Text -> Box (FullBox DataEntryUrn 0)
dataEntryUrn isLocal urn url = Box (FullBox (fromIntegral $ fromEnum isLocal) $ DataEntryUrn $ urn :+ url)
instance IsBox DataEntryUrn
type instance BoxTypeSymbol DataEntryUrn = "urn "