aboutsummaryrefslogtreecommitdiff
path: root/haddock-api/src
diff options
context:
space:
mode:
authorRyan Scott <ryan.gl.scott@gmail.com>2018-01-19 04:44:02 -0500
committerAlexander Biehl <alexbiehl@gmail.com>2018-01-19 10:44:02 +0100
commit48ee5587b574105a231072999b06aa56c37292c4 (patch)
treee660efe9269fc0f48e85b6adce79fabf05053615 /haddock-api/src
parentaa33be50e6292875b6afea8f97980c3a6e76ed87 (diff)
Fix #732 (#733)
Diffstat (limited to 'haddock-api/src')
-rw-r--r--haddock-api/src/Haddock/GhcUtils.hs4
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