aboutsummaryrefslogtreecommitdiff
path: root/haddock-api
diff options
context:
space:
mode:
authorHécate Moonlight <Kleidukos@users.noreply.github.com>2021-02-07 17:52:05 +0100
committerGitHub <noreply@github.com>2021-02-07 17:52:05 +0100
commit39fea0fedb79b2cd893861e31fe6f1c051d4833f (patch)
treecf1aa4083e73df02b0bdc95e0ae3ed370e46349a /haddock-api
parent9dab3bdc9f31c0389e69f21c2199f874d151ccb7 (diff)
parent2f34d120c6da996d23518c3fa9065ccf0e05a551 (diff)
Merge pull request #1320 from haskell/alex/fix
Remove dubious parseModLink
Diffstat (limited to 'haddock-api')
-rw-r--r--haddock-api/src/Haddock/InterfaceFile.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/haddock-api/src/Haddock/InterfaceFile.hs b/haddock-api/src/Haddock/InterfaceFile.hs
index 966901df..69201eb0 100644
--- a/haddock-api/src/Haddock/InterfaceFile.hs
+++ b/haddock-api/src/Haddock/InterfaceFile.hs
@@ -46,9 +46,6 @@ import GHC.Types.Unique.FM
import GHC.Types.Unique.Supply
import GHC.Types.Unique
-import Documentation.Haddock.Parser (parseModLink)
-
-
data InterfaceFile = InterfaceFile {
ifLinkEnv :: LinkEnv,
ifInstalledIfaces :: [InstalledInterface]
@@ -625,7 +622,10 @@ instance (Binary mod, Binary id) => Binary (DocH mod id) where
-- See note [The DocModule story]
5 -> do
af <- get bh
- return (parseModLink af)
+ return $ DocModule ModLink
+ { modLinkName = af
+ , modLinkLabel = Nothing
+ }
6 -> do
ag <- get bh
return (DocEmphasis ag)