module Data.ByteString.IsoBaseFileFormat.Boxes.DataEntryUrl
(DataEntryUrl()
,localMediaDataEntryUrl
,dataEntryUrl
)
where
import Data.ByteString.IsoBaseFileFormat.Box
import Data.ByteString.IsoBaseFileFormat.Util.FullBox
import qualified Data.Text as T
import Data.ByteString.IsoBaseFileFormat.ReExports
newtype DataEntryUrl =
DataEntryUrl (Maybe T.Text)
deriving (Default,IsBoxContent)
localMediaDataEntryUrl
:: Box (FullBox DataEntryUrl 0)
localMediaDataEntryUrl = dataEntryUrl True Nothing
dataEntryUrl
:: Bool -> Maybe T.Text -> Box (FullBox DataEntryUrl 0)
dataEntryUrl isLocal Nothing = Box (FullBox (fromIntegral $ fromEnum isLocal) $ DataEntryUrl Nothing)
dataEntryUrl isLocal murl = Box (FullBox (fromIntegral $ fromEnum isLocal) $ DataEntryUrl murl)
instance IsBox DataEntryUrl
type instance BoxTypeSymbol DataEntryUrl = "url "