@@ -745,18 +745,18 @@ pLink = try $ do
745745 let uid = fromMaybe (T.unpack $ fromAttrib "name" tag) $
746746 maybeFromAttrib "id" tag
747747 let cls = words $ T.unpack $ fromAttrib "class" tag
748− lab <- trimInlines . mconcat <$> manyTill inline (pCloses "a")
748+ lab <- mconcat <$> manyTill inline (pCloses "a")
749749 -- check for href; if href, then a link, otherwise a span
750750 case maybeFromAttrib "href" tag of
751751 Nothing ->
752− return $ B.spanWith (uid, cls, []) lab
752+ return $ extractSpaces (B.spanWith (uid, cls, [])) lab
753753 Just url' -> do
754754 mbBaseHref <- baseHref <$> getState
755755 let url = case (parseURIReference url', mbBaseHref) of
756756 (Just rel, Just bs) ->
757757 show (rel `nonStrictRelativeTo` bs)
758758 _ -> url'
759− return $ B.linkWith (uid, cls, []) (escapeURI url) title lab
759+ return $ extractSpaces (B.linkWith (uid, cls, []) (escapeURI url) title) lab
760760
761761pImage :: PandocMonad m => TagParser m Inlines
762762pImage = do