module WeekDaze.OutputConfiguration.Format(
Format(..),
getMaybeStyle
) where
import qualified Control.DeepSeq
import qualified Data.Default
import qualified Text.XML.HXT.Arrow.Pickle as HXT
import qualified WeekDaze.OutputConfiguration.Style as OutputConfiguration.Style
import qualified WeekDaze.OutputConfiguration.View as OutputConfiguration.View
xhtmlTag :: String
xhtmlTag = "xhtml"
xmlTag :: String
xmlTag = "xml"
data Format minimumContrastRatio
= XHTML (OutputConfiguration.Style.Style minimumContrastRatio)
| XML OutputConfiguration.View.View
deriving (Eq, Show)
instance Data.Default.Default (Format minimumContrastRatio) where
def = XHTML Data.Default.def
instance (
Fractional minimumContrastRatio,
HXT.XmlPickler minimumContrastRatio,
Ord minimumContrastRatio
) => HXT.XmlPickler (Format minimumContrastRatio) where
xpickle = HXT.xpDefault Data.Default.def $ HXT.xpAlt (
\format -> case format of
XHTML _ -> 0
XML _ -> 1
) [
HXT.xpElem xhtmlTag $ HXT.xpWrap (XHTML, \(XHTML style) -> style) HXT.xpickle ,
HXT.xpElem xmlTag . HXT.xpWrap (XML, \(XML view) -> view) $ HXT.xpDefault Data.Default.def HXT.xpickle
]
instance Control.DeepSeq.NFData minimumContrastRatio => Control.DeepSeq.NFData (Format minimumContrastRatio) where
rnf (XHTML style) = Control.DeepSeq.rnf style
rnf (XML view) = Control.DeepSeq.rnf view
getMaybeStyle :: Format minimumContrastRatio -> Maybe (OutputConfiguration.Style.Style minimumContrastRatio)
getMaybeStyle (XHTML style) = Just style
getMaybeStyle _ = Nothing