0ce7183 · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

Muse reader: get rid of TagSoup import

0ce7183Alexander Krotov8 years ago

src/Text/Pandoc/Readers/Muse.hs+1−2

@@ -51,7 +51,6 @@ import qualified Data.Map as M

51import qualified Data.Set as Set

52import Data.Maybe (fromMaybe, isNothing, maybeToList)

53import Data.Text (Text, unpack)

54−import Text.HTML.TagSoup

55import Text.Pandoc.Builder (Blocks, Inlines)

54import Text.Pandoc.Builder (Blocks, Inlines)

56import qualified Text.Pandoc.Builder as B

55import qualified Text.Pandoc.Builder as B

57import Text.Pandoc.Class (PandocMonad (..))

56import Text.Pandoc.Class (PandocMonad (..))

@@ -196,7 +195,7 @@ closeTag :: PandocMonad m => String -> MuseParser m ()

196closeTag tag = try $ string "</" *> string tag *> void (char '>')

195closeTag tag = try $ string "</" *> string tag *> void (char '>')

197

196

198-- | Convert HTML attributes to Pandoc 'Attr'

197-- | Convert HTML attributes to Pandoc 'Attr'

199−htmlAttrToPandoc :: [Attribute String] -> Attr

198+htmlAttrToPandoc :: [(String, String)] -> Attr

200htmlAttrToPandoc attrs = (ident, classes, keyvals)

199htmlAttrToPandoc attrs = (ident, classes, keyvals)

201 where

200 where

202 ident = fromMaybe "" $ lookup "id" attrs

201 ident = fromMaybe "" $ lookup "id" attrs