diff options
| author | Alan Zimmerman <alan.zimm@gmail.com> | 2015-11-21 21:16:12 +0200 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2015-12-14 15:54:20 +0000 |
| commit | d74b8d0e5ab3589d3ab8cf82e22ab6ac6813ae40 (patch) | |
| tree | a7dca316a2e45734d6ba579bcb4d69dda15ff670 /haddock-api/src/Haddock/Backends/Hoogle.hs | |
| parent | 22aef2dd92e488af31556b8b4c1e034d6eb25de9 (diff) | |
Update to match GHC wip/T11019
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 1d85b474..5800736f 100644 --- a/haddock-api/src/Haddock/Backends/Hoogle.hs +++ b/haddock-api/src/Haddock/Backends/Hoogle.hs @@ -241,7 +241,7 @@ ppCtor dflags dat subdocs con name = commaSeparate 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 |