diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2020-04-29 12:36:37 -0400 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-04-29 12:36:37 -0400 |
| commit | 66faa532d4e3d93e87c5b042bef82d631dc74eb5 (patch) | |
| tree | 971e9594725d0c6c798161aaee22054b9c696356 /haddock-api/src/Haddock/Backends/Xhtml/Layout.hs | |
| parent | 7c34f89d801bafba3162bc091dd486cbb9e9fd5b (diff) | |
| parent | a61dbdb0a7420e15e978bce6c09de1ce99290f44 (diff) | |
Merge pull request #1183 from hsyl20/wip/hsyl20/unitid
Refactoring of Unit code
Diffstat (limited to 'haddock-api/src/Haddock/Backends/Xhtml/Layout.hs')
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Xhtml/Layout.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Backends/Xhtml/Layout.hs b/haddock-api/src/Haddock/Backends/Xhtml/Layout.hs index 21d544cd..dd8b0b18 100644 --- a/haddock-api/src/Haddock/Backends/Xhtml/Layout.hs +++ b/haddock-api/src/Haddock/Backends/Xhtml/Layout.hs @@ -306,7 +306,7 @@ links ((_,_,sourceMap,lineMap), (_,_,maybe_wiki_url)) loc splice mdl' docName@(D -- 'mdl'' is a way of "overriding" the module. Without it, instances -- will point to the module defining the class/family, which is wrong. origMod = fromMaybe (nameModule n) mdl' - origPkg = moduleUnitId origMod + origPkg = moduleUnit origMod fname = case loc of RealSrcSpan l _ -> unpackFS (srcSpanFile l) |