{-# 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 Attrify URL where
	attrify (URL a) = attrify a
instance Attrify Path where
	attrify (Path a) = attrify a
instance Attrify Nat where
	attrify (Nat a) = attrify a
instance Attrify Nat1 where
	attrify (Nat1 a) = attrify 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