Text/Blaze/XML.hs

   1 {-# OPTIONS_GHC -fno-warn-orphans #-}
   2 module Text.Blaze.XML where
   3
   4 import Language.XML hiding (XML)
   5 import Text.Blaze
   6 import Text.Blaze.Utils
   7
   8 -- * Type 'XML'
   9 type XML = Markup
  10
  11 instance AttrValue URL where
  12         attrValue (URL a) = attrValue a
  13 instance AttrValue Path where
  14         attrValue (Path a) = attrValue a
  15 instance AttrValue Ident where
  16         attrValue (Ident a) = attrValue a
  17 instance AttrValue Nat where
  18         attrValue (Nat a) = attrValue a
  19 instance AttrValue Nat1 where
  20         attrValue (Nat1 a) = attrValue a
  21
  22 instance MayAttr URL where
  23         mayAttr a (URL t) = mayAttr a t
  24 instance MayAttr Path where
  25         mayAttr a (Path t) = mayAttr a t
  26 instance MayAttr Ident where
  27         mayAttr a (Ident t) = mayAttr a t
  28 instance MayAttr Nat where
  29         mayAttr a (Nat t) = mayAttr a t
  30 instance MayAttr Nat1 where
  31         mayAttr a (Nat1 t) = mayAttr a t