diff options
| author | Ryan Scott <ryan.gl.scott@gmail.com> | 2018-01-19 04:44:02 -0500 |
|---|---|---|
| committer | Alexander Biehl <alexbiehl@gmail.com> | 2018-01-19 10:44:02 +0100 |
| commit | 48ee5587b574105a231072999b06aa56c37292c4 (patch) | |
| tree | e660efe9269fc0f48e85b6adce79fabf05053615 | |
| parent | aa33be50e6292875b6afea8f97980c3a6e76ed87 (diff) | |
Fix #732 (#733)
| -rw-r--r-- | haddock-api/src/Haddock/GhcUtils.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/haddock-api/src/Haddock/GhcUtils.hs b/haddock-api/src/Haddock/GhcUtils.hs index 4963d2f8..17c92688 100644 --- a/haddock-api/src/Haddock/GhcUtils.hs +++ b/haddock-api/src/Haddock/GhcUtils.hs @@ -169,8 +169,8 @@ getGADTConType (ConDeclGADT { con_forall = has_forall tau_ty = case args of RecCon flds -> noLoc (HsFunTy (noLoc (HsRecTy (unLoc flds))) res_ty) - PrefixCon pos_args -> foldr (\ a b -> noLoc (HsFunTy a b)) res_ty pos_args - InfixCon {} -> panic "InfixCon for GADT" + PrefixCon pos_args -> foldr nlHsFunTy res_ty pos_args + InfixCon arg1 arg2 -> arg1 `nlHsFunTy` (arg2 `nlHsFunTy` res_ty) getGADTConType (ConDeclH98 {}) = panic "getGADTConType" -- Should only be called on ConDeclGADT |