From 0ce7183c81715ce212196f64ba916fd5d9a5c0dd Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Fri, 5 Oct 2018 15:57:03 +0300 Subject: Muse reader: get rid of TagSoup import --- src/Text/Pandoc/Readers/Muse.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src') diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index c3b8ea25f..8e1f3a2af 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -51,7 +51,6 @@ import qualified Data.Map as M import qualified Data.Set as Set import Data.Maybe (fromMaybe, isNothing, maybeToList) import Data.Text (Text, unpack) -import Text.HTML.TagSoup import Text.Pandoc.Builder (Blocks, Inlines) import qualified Text.Pandoc.Builder as B import Text.Pandoc.Class (PandocMonad (..)) @@ -196,7 +195,7 @@ closeTag :: PandocMonad m => String -> MuseParser m () closeTag tag = try $ string " string tag *> void (char '>') -- | Convert HTML attributes to Pandoc 'Attr' -htmlAttrToPandoc :: [Attribute String] -> Attr +htmlAttrToPandoc :: [(String, String)] -> Attr htmlAttrToPandoc attrs = (ident, classes, keyvals) where ident = fromMaybe "" $ lookup "id" attrs -- cgit v1.2.3