{-# OPTIONS -fglasgow-exts -fallow-overlapping-instances -fallow-undecidable-instances #-}


module Autolib.ToDoc.Xml where

--  $Id$

import Autolib.ToDoc.Class
import Autolib.Xml

instance Container Doc String where
    label :: Doc -> String
label Doc
_ = String
"Doc"
    pack :: Doc -> String
pack = Doc -> String
forall a. Show a => a -> String
show
    unpack :: String -> Doc
unpack = String -> Doc
text