mirror of
https://github.com/typeable/xml-conduit-writer.git
synced 2024-08-16 19:40:24 +03:00
adjust to any mtl
This commit is contained in:
parent
446a368876
commit
1f402e59be
@ -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) ()
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user