mirror of
https://github.com/typeable/xml-conduit-writer.git
synced 2024-09-11 16:08:11 +03:00
use lts-22.4
This commit is contained in:
parent
75ae0f91a9
commit
446a368876
@ -36,6 +36,7 @@ module Text.XML.Writer
|
||||
) where
|
||||
|
||||
import Text.XML
|
||||
import Control.Monad
|
||||
import Control.Monad.Writer.Strict
|
||||
import Data.Default ()
|
||||
import qualified Data.DList as DL
|
||||
@ -58,37 +59,6 @@ document name children = Document { documentPrologue = Prologue def def def
|
||||
, documentEpilogue = def
|
||||
}
|
||||
|
||||
-- | Create a simple Document starting with a root element with attributes.
|
||||
documentA :: Name -- ^ Root node name
|
||||
-> [(Name, Text)] -- ^ Attributes
|
||||
-> XML -- ^ Contents
|
||||
-> Document
|
||||
documentA name attrs children = Document { documentPrologue = Prologue def def def
|
||||
, documentRoot = Element name (M.fromList attrs) (render children)
|
||||
, 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.
|
||||
pprint :: Document -> IO ()
|
||||
pprint = TL.putStrLn . renderText def { rsPretty = True }
|
||||
|
@ -1,4 +1,4 @@
|
||||
resolver: lts-20.24
|
||||
resolver: lts-22.4
|
||||
|
||||
packages:
|
||||
- .
|
||||
|
Loading…
Reference in New Issue
Block a user