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 Attrify URL where
  12         attrify (URL a) = attrify a
  13 instance Attrify Path where
  14         attrify (Path a) = attrify a
  15 instance Attrify Nat where
  16         attrify (Nat a) = attrify a
  17 instance Attrify Nat1 where
  18         attrify (Nat1 a) = attrify a
  19
  20 instance MayAttr URL where
  21         mayAttr a (URL t) = mayAttr a t
  22 instance MayAttr Path where
  23         mayAttr a (Path t) = mayAttr a t
  24 instance MayAttr Ident where
  25         mayAttr a (Ident t) = mayAttr a t
  26 instance MayAttr Nat where
  27         mayAttr a (Nat t) = mayAttr a t
  28 instance MayAttr Nat1 where
  29         mayAttr a (Nat1 t) = mayAttr a t