mirror of
https://github.com/typeable/xml-conduit-writer.git
synced 2024-09-11 16:08:11 +03:00
Add documentD and documentAD functions to Writer.hs
This commit is contained in:
parent
8c45de03c7
commit
75ae0f91a9
@ -68,6 +68,27 @@ documentA name attrs children = Document { documentPrologue = Prologue def def d
|
|||||||
, documentEpilogue = def
|
, documentEpilogue = def
|
||||||
}
|
}
|
||||||
|
|
||||||
|
-- | Create a simple Document starting with a root element with a doctype.
|
||||||
|
documentD :: Name -- ^ Root node name
|
||||||
|
-> Maybe Doctype -- ^ DOCTYPE
|
||||||
|
-> XML -- ^ Contents
|
||||||
|
-> Document
|
||||||
|
documentD name dt children = Document { documentPrologue = Prologue def dt def
|
||||||
|
, documentRoot = Element name def (render children)
|
||||||
|
, documentEpilogue = def
|
||||||
|
}
|
||||||
|
|
||||||
|
-- | Create a simple Document starting with a root element with attributes and doctype.
|
||||||
|
documentAD :: Name -- ^ Root node name
|
||||||
|
-> [(Name, Text)] -- ^ Attributes
|
||||||
|
-> Maybe Doctype -- ^ DOCTYPE
|
||||||
|
-> XML -- ^ Contents
|
||||||
|
-> Document
|
||||||
|
documentAD name attrs dt children = Document { documentPrologue = Prologue def dt def
|
||||||
|
, documentRoot = Element name (M.fromList attrs) (render children)
|
||||||
|
, documentEpilogue = def
|
||||||
|
}
|
||||||
|
|
||||||
-- | Render document using xml-conduit's pretty-printer.
|
-- | Render document using xml-conduit's pretty-printer.
|
||||||
pprint :: Document -> IO ()
|
pprint :: Document -> IO ()
|
||||||
pprint = TL.putStrLn . renderText def { rsPretty = True }
|
pprint = TL.putStrLn . renderText def { rsPretty = True }
|
||||||
|
Loading…
Reference in New Issue
Block a user