typeable/xml-conduit-writer
1
0
Fork 0
mirror of https://github.com/typeable/xml-conduit-writer.git synced 2024-08-16 19:40:24 +03:00
Code Issues Packages Projects Releases Wiki Activity

adjust to any mtl

Browse Source
This commit is contained in:
Dmitry Olshansky 2024-01-08 12:35:42 +03:00 committed by Nick
parent 446a368876
commit 1f402e59be
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Text/XML/Writer.hs
View File

@ -1,4 +1,4 @@
{-# LANGUAGE OverloadedStrings, TypeSynonymInstances, FlexibleInstances #-}
{-# LANGUAGE OverloadedStrings, TypeSynonymInstances, FlexibleInstances, CPP #-}
{-# OPTIONS_GHC -fno-warn-orphans #-} -- IsString for XML
-- | Overcome XML insanity, node by node.
@ -36,7 +36,6 @@ 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
@ -47,6 +46,10 @@ import qualified Data.Text as T
import qualified Data.Text.Lazy.IO as TL
import Data.String (IsString(..))
#if MIN_VERSION_mtl(2,3,0)
import Control.Monad
#endif
-- | Node container to be rendered as children nodes.
type XML = Writer (DL.DList Node) ()