diff options
| author | Herbert Valerio Riedel <hvr@gnu.org> | 2018-05-01 18:08:16 +0200 |
|---|---|---|
| committer | Herbert Valerio Riedel <hvr@gnu.org> | 2018-05-01 18:11:09 +0200 |
| commit | 53fd41f2510d9ae81079ef5a8bfdf5f515185387 (patch) | |
| tree | 1ff0b7c225ec8c72cb5afcda940e87af4339c91b /haddock-api/src/Haddock/Interface/AttachInstances.hs | |
| parent | 79c7159101c03bbbc7350e07963896ca2bb97c02 (diff) | |
| parent | 271a9cb0c7a070deef8df2d4fb54ebe47a0bf560 (diff) | |
Merge branch 'ghc-head' with 'ghc-8.4'
Diffstat (limited to 'haddock-api/src/Haddock/Interface/AttachInstances.hs')
| -rw-r--r-- | haddock-api/src/Haddock/Interface/AttachInstances.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Interface/AttachInstances.hs b/haddock-api/src/Haddock/Interface/AttachInstances.hs index d0ed1698..bf50ded3 100644 --- a/haddock-api/src/Haddock/Interface/AttachInstances.hs +++ b/haddock-api/src/Haddock/Interface/AttachInstances.hs @@ -86,7 +86,7 @@ attachToExportItem -> Ghc (ExportItem GhcRn) attachToExportItem index expInfo iface ifaceMap instIfaceMap export = case attachFixities export of - e@ExportDecl { expItemDecl = L eSpan (TyClD d) } -> do + e@ExportDecl { expItemDecl = L eSpan (TyClD _ d) } -> do insts <- let mb_instances = lookupNameEnv index (tcdName d) cls_instances = maybeToList mb_instances >>= fst |