aboutsummaryrefslogtreecommitdiff
path: root/haddock-api/src/Haddock/Backends/Hyperlinker
diff options
context:
space:
mode:
authorSylvain Henry <sylvain@haskus.fr>2020-10-12 15:13:38 +0200
committerGitHub <noreply@github.com>2020-10-12 09:13:38 -0400
commit6f16399e0320d0ef5e6c3dd0329ce7ed3715b6b2 (patch)
treea43faf53165201e641c0a9a2e5960fd33e9331e8 /haddock-api/src/Haddock/Backends/Hyperlinker
parent7b5972402afad755cd45aaad1a96aac509e9d5d2 (diff)
Don't pass the HomeUnitId (#1239)
Diffstat (limited to 'haddock-api/src/Haddock/Backends/Hyperlinker')
-rw-r--r--haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs1
1 files changed, 0 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs b/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs
index eb6c061c..1b3ed35c 100644
--- a/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs
+++ b/haddock-api/src/Haddock/Backends/Hyperlinker/Parser.hs
@@ -50,7 +50,6 @@ parse dflags fpath bs = case unP (go False []) initState of
start = mkRealSrcLoc (mkFastString fpath) 1 1
pflags = mkParserOpts (warningFlags dflags)
(extensionFlags dflags)
- (homeUnitId (mkHomeUnitFromFlags dflags))
(safeImportsOn dflags)
False -- lex Haddocks as comment tokens
True -- produce comment tokens