diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2015-11-23 13:54:31 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2015-11-23 13:54:31 +0000 |
| commit | 95e4362d9200b31f3f26fe8d2f97b5565e5ab7b3 (patch) | |
| tree | 6c4a8d57f7b3eb740d849202ff2f730d97a6ea4f /haddock-api/src/Haddock/Backends/Hoogle.hs | |
| parent | c091ca829c253dc7f12f3a816a083c39979130f1 (diff) | |
| parent | fcd1bb7177a800f6f56a623c2468fc46a59c527b (diff) | |
merge with origin/ghc-head
Diffstat (limited to 'haddock-api/src/Haddock/Backends/Hoogle.hs')
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Hoogle.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Backends/Hoogle.hs b/haddock-api/src/Haddock/Backends/Hoogle.hs index b7dfad64..bc5588af 100644 --- a/haddock-api/src/Haddock/Backends/Hoogle.hs +++ b/haddock-api/src/Haddock/Backends/Hoogle.hs @@ -183,7 +183,7 @@ ppCtor dflags dat subdocs con name = out dflags $ map unL $ con_names con resType = case con_res con of - ResTyH98 -> apps $ map (reL . HsTyVar) $ + ResTyH98 -> apps $ map (reL . HsTyVar . reL) $ (tcdName dat) : [hsTyVarName v | L _ v@(UserTyVar _) <- hsQTvBndrs $ tyClDeclTyVars dat] ResTyGADT _ x -> x |