diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2016-06-15 12:56:01 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2016-06-15 12:56:01 +0100 |
| commit | f833ba8cdbe6ea9436f9f7bf79494a968e8394f0 (patch) | |
| tree | af4349fecf01a1152e5ad457d5a444d0a1dc9bb5 /haddock-api/src/Haddock/Convert.hs | |
| parent | 09054c2c6ac346b19d0dec9a43956fcea1c272fb (diff) | |
Follow GHC re-adding FunTy
Diffstat (limited to 'haddock-api/src/Haddock/Convert.hs')
| -rw-r--r-- | haddock-api/src/Haddock/Convert.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Convert.hs b/haddock-api/src/Haddock/Convert.hs index ecc26b9a..5f3a1e9e 100644 --- a/haddock-api/src/Haddock/Convert.hs +++ b/haddock-api/src/Haddock/Convert.hs @@ -406,7 +406,7 @@ synifyType _ (AppTy t1 t2) = let s1 = synifyType WithinType t1 s2 = synifyType WithinType t2 in noLoc $ HsAppTy s1 s2 -synifyType _ (ForAllTy (Anon t1) t2) = let +synifyType _ (FunTy t1 t2) = let s1 = synifyType WithinType t1 s2 = synifyType WithinType t2 in noLoc $ HsFunTy s1 s2 |