{-# OPTIONS_GHC -fno-warn-orphans #-}
module Text.Blaze.XML where

import Language.XML hiding (XML)
import Text.Blaze
import Text.Blaze.Utils

-- * Type 'XML'
type XML = Markup

instance AttrValue URL where
	attrValue (URL a) = attrValue a
instance AttrValue Path where
	attrValue (Path a) = attrValue a
instance AttrValue Ident where
	attrValue (Ident a) = attrValue a
instance AttrValue Nat where
	attrValue (Nat a) = attrValue a
instance AttrValue Nat1 where
	attrValue (Nat1 a) = attrValue a

instance MayAttr URL where
	mayAttr a (URL t) = mayAttr a t
instance MayAttr Path where
	mayAttr a (Path t) = mayAttr a t
instance MayAttr Ident where
	mayAttr a (Ident t) = mayAttr a t
instance MayAttr Nat where
	mayAttr a (Nat t) = mayAttr a t
instance MayAttr Nat1 where
	mayAttr a (Nat1 t) = mayAttr a t