RST writer: Don't wrap link references.

Closes #487.
This commit is contained in:
John MacFarlane 2012-04-21 09:46:05 -07:00
parent 9989170df2
commit 9a347c37ad

View file

@ -97,7 +97,7 @@ keyToRST (label, (src, _)) = do
let label'' = if ':' `elem` (render Nothing label') let label'' = if ':' `elem` (render Nothing label')
then char '`' <> label' <> char '`' then char '`' <> label' <> char '`'
else label' else label'
return $ ".. _" <> label'' <> ": " <> text src return $ nowrap $ ".. _" <> label'' <> ": " <> text src
-- | Return RST representation of notes. -- | Return RST representation of notes.
notesToRST :: [[Block]] -> State WriterState Doc notesToRST :: [[Block]] -> State WriterState Doc