@@ -151,7 +151,7 @@ processCitations (Pandoc meta bs) = do
151151 (resultBibliography result)
152152 let moveNotes = maybe True truish $
153153 lookupMeta "notes-after-punctuation" meta
154− let cits = map (walk (convertQuotes locale)) $
154+ let cits = map (walk fixLinks . walk (convertQuotes locale)) $
155155 resultCitations result
156156
157157 let fixQuotes = case localePunctuationInQuote locale of
@@ -164,9 +164,9 @@ processCitations (Pandoc meta bs) = do
164164 walk (fixQuotes . mvPunct moveNotes locale) $ walk deNote $
165165 evalState (walkM insertResolvedCitations $ Pandoc meta' bs)
166166 $ cits
167− return $ walk fixLinks
168− $ Pandoc meta''
169− $ insertRefs refkvs classes meta'' (B.toList bibs) bs'
167+ return $ Pandoc meta''
168+ $ insertRefs refkvs classes meta''
169+ (walk fixLinks $ B.toList bibs) bs'
170170
171171-- If we have a span.csl-left-margin followed by span.csl-right-inline,
172172-- we insert a space. This ensures that they will be separated by a space,