diff options
| author | mynguyen <mnguyen1@brynmawr.edu> | 2018-07-17 18:20:12 -0400 |
|---|---|---|
| committer | Richard Eisenberg <rae@cs.brynmawr.edu> | 2018-12-30 23:42:26 -0500 |
| commit | 21e4f3fa6f73a9b25f3deed80da0e56024238ea5 (patch) | |
| tree | 5fbffd61bb60b6a5965de775a3735ef67dc1067e /haddock-api/src/Haddock/Backends/Hoogle.hs | |
| parent | 7a097214dff6b1f75d9c11e9b0b1bdf4031bb172 (diff) | |
Visible kind application haddock update
Diffstat (limited to 'haddock-api/src/Haddock/Backends/Hoogle.hs')
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Hoogle.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/haddock-api/src/Haddock/Backends/Hoogle.hs b/haddock-api/src/Haddock/Backends/Hoogle.hs index b3b46a47..16ec582e 100644 --- a/haddock-api/src/Haddock/Backends/Hoogle.hs +++ b/haddock-api/src/Haddock/Backends/Hoogle.hs @@ -76,6 +76,7 @@ dropHsDocTy = f f (HsQualTy x a e) = HsQualTy x a (g e) f (HsBangTy x a b) = HsBangTy x a (g b) f (HsAppTy x a b) = HsAppTy x (g a) (g b) + f (HsAppKindTy x a b) = HsAppKindTy x (g a) (g b) f (HsFunTy x a b) = HsFunTy x (g a) (g b) f (HsListTy x a) = HsListTy x (g a) f (HsTupleTy x a b) = HsTupleTy x a (map g b) |