@@ -51,7 +51,6 @@ import qualified Data.Map as M
5151import qualified Data.Set as Set
5252import Data.Maybe (fromMaybe, isNothing, maybeToList)
5353import Data.Text (Text, unpack)
54−import Text.HTML.TagSoup
5554import Text.Pandoc.Builder (Blocks, Inlines)
5655import qualified Text.Pandoc.Builder as B
5756import Text.Pandoc.Class (PandocMonad (..))
@@ -196,7 +195,7 @@ closeTag :: PandocMonad m => String -> MuseParser m ()
196195closeTag tag = try $ string "</" *> string tag *> void (char '>')
197196
198197-- | Convert HTML attributes to Pandoc 'Attr'
199−htmlAttrToPandoc :: [Attribute String] -> Attr
198+htmlAttrToPandoc :: [(String, String)] -> Attr
200199htmlAttrToPandoc attrs = (ident, classes, keyvals)
201200 where
202201 ident = fromMaybe "" $ lookup "id" attrs