projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Enumerate imports and remove dead code.
[ghc-hetmet.git]
/
ghc
/
compiler
/
rename
/
RnHsSyn.lhs
diff --git
a/ghc/compiler/rename/RnHsSyn.lhs
b/ghc/compiler/rename/RnHsSyn.lhs
index
8143a52
..
6752218
100644
(file)
--- a/
ghc/compiler/rename/RnHsSyn.lhs
+++ b/
ghc/compiler/rename/RnHsSyn.lhs
@@
-117,17
+117,15
@@
hsSigFVs (SpecSig v ty inl) = extractHsTyNames ty
hsSigFVs other = emptyFVs
----------------
hsSigFVs other = emptyFVs
----------------
--- XXX - autrijus - handle return type for GADT
-conDeclFVs (L _ (ConDecl _ _ tyvars context details _))
+conDeclFVs (L _ (ConDecl { con_qvars = tyvars, con_cxt = context,
+ con_details = details, con_res = res_ty}))
= delFVs (map hsLTyVarName tyvars) $
= delFVs (map hsLTyVarName tyvars) $
- extractHsCtxtTyNames context `plusFV`
- conDetailsFVs details
+ extractHsCtxtTyNames context `plusFV`
+ conDetailsFVs details `plusFV`
+ conResTyFVs res_ty
-{-
--- gaw 2004
-conDeclFVs (L _ (GadtDecl _ ty))
- = extractHsTyNames ty
--}
+conResTyFVs ResTyH98 = emptyFVs
+conResTyFVs (ResTyGADT ty) = extractHsTyNames ty
conDetailsFVs (PrefixCon btys) = plusFVs (map bangTyFVs btys)
conDetailsFVs (InfixCon bty1 bty2) = bangTyFVs bty1 `plusFV` bangTyFVs bty2
conDetailsFVs (PrefixCon btys) = plusFVs (map bangTyFVs btys)
conDetailsFVs (InfixCon bty1 bty2) = bangTyFVs bty1 `plusFV` bangTyFVs bty2