module Codec.Epub.Data.Manifest
( Manifest (..)
, ManifestItem (..)
)
where
import Codec.Epub.Data.Common
type MFItemHref = String
type MFItemMediaType = String
data ManifestItem = ManifestItem
{ ManifestItem -> MFItemId
mfiId :: MFItemId
, ManifestItem -> MFItemId
mfiHref :: MFItemHref
, ManifestItem -> MFItemId
mfiMediaType :: MFItemMediaType
}
deriving (ManifestItem -> ManifestItem -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ManifestItem -> ManifestItem -> Bool
$c/= :: ManifestItem -> ManifestItem -> Bool
== :: ManifestItem -> ManifestItem -> Bool
$c== :: ManifestItem -> ManifestItem -> Bool
Eq, Int -> ManifestItem -> ShowS
[ManifestItem] -> ShowS
ManifestItem -> MFItemId
forall a.
(Int -> a -> ShowS) -> (a -> MFItemId) -> ([a] -> ShowS) -> Show a
showList :: [ManifestItem] -> ShowS
$cshowList :: [ManifestItem] -> ShowS
show :: ManifestItem -> MFItemId
$cshow :: ManifestItem -> MFItemId
showsPrec :: Int -> ManifestItem -> ShowS
$cshowsPrec :: Int -> ManifestItem -> ShowS
Show)
newtype Manifest = Manifest [ManifestItem]
deriving (Manifest -> Manifest -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Manifest -> Manifest -> Bool
$c/= :: Manifest -> Manifest -> Bool
== :: Manifest -> Manifest -> Bool
$c== :: Manifest -> Manifest -> Bool
Eq, Int -> Manifest -> ShowS
[Manifest] -> ShowS
Manifest -> MFItemId
forall a.
(Int -> a -> ShowS) -> (a -> MFItemId) -> ([a] -> ShowS) -> Show a
showList :: [Manifest] -> ShowS
$cshowList :: [Manifest] -> ShowS
show :: Manifest -> MFItemId
$cshow :: Manifest -> MFItemId
showsPrec :: Int -> Manifest -> ShowS
$cshowsPrec :: Int -> Manifest -> ShowS
Show)