diff options
| author | Richard Eisenberg <rae@richarde.dev> | 2019-11-01 13:53:06 +0000 |
|---|---|---|
| committer | Richard Eisenberg <rae@richarde.dev> | 2020-03-09 14:49:40 +0000 |
| commit | fc007f3c3601398f5416f3083a4d8ca695c8d6e9 (patch) | |
| tree | ef23ccfac2f4991d7432071dc588638922f355ba /haddock-api/src/Haddock/Interface | |
| parent | b104c573fdc6efcecc3bfaa2fb6084b7679f32da (diff) | |
Changes in GHC's !1913.
Diffstat (limited to 'haddock-api/src/Haddock/Interface')
| -rw-r--r-- | haddock-api/src/Haddock/Interface/Create.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/haddock-api/src/Haddock/Interface/Create.hs b/haddock-api/src/Haddock/Interface/Create.hs index 977fc9ca..5f21e36f 100644 --- a/haddock-api/src/Haddock/Interface/Create.hs +++ b/haddock-api/src/Haddock/Interface/Create.hs @@ -1076,8 +1076,8 @@ extractDecl declMap name decl TyClD _ d@DataDecl {} -> let (n, tyvar_tys) = (tcdName d, lHsQTyVarsToTypes (tyClDeclTyVars d)) in if isDataConName name - then SigD noExtField <$> extractPatternSyn name n (map HsValArg tyvar_tys) (dd_cons (tcdDataDefn d)) - else SigD noExtField <$> extractRecSel name n (map HsValArg tyvar_tys) (dd_cons (tcdDataDefn d)) + then SigD noExtField <$> extractPatternSyn name n tyvar_tys (dd_cons (tcdDataDefn d)) + else SigD noExtField <$> extractRecSel name n tyvar_tys (dd_cons (tcdDataDefn d)) TyClD _ FamDecl {} | isValName name , Just (famInst:_) <- M.lookup name declMap |