@@ -131,7 +131,8 @@ docHToInlines isCode d' =
131131 DocIdentifier s -> B.codeWith ("",["haskell","identifier"],[]) $ T.pack s
132132 _ -> mempty
133133 DocIdentifierUnchecked s -> B.codeWith ("",["haskell","identifier"],[]) $ T.pack s
134− DocModule s -> B.codeWith ("",["haskell","module"],[]) $ T.pack s
134+ DocModule s -> B.codeWith ("",["haskell","module"],[]) $
135+ T.pack (modLinkName s)
135136 DocWarning _ -> mempty -- TODO
136137 DocEmphasis d -> B.emph (docHToInlines isCode d)
137138 DocMonospaced (DocString s) -> B.code $ T.pack s