add support for <{..}> and ~~> syntax as well as typing for Kappa-calculus

[ghc-hetmet.git] / compiler / hsSyn / HsUtils.lhs

diff --git a/compiler/hsSyn/HsUtils.lhs b/compiler/hsSyn/HsUtils.lhs
index cc57e05..9767afa 100644 (file)
--- a/compiler/hsSyn/HsUtils.lhs
+++ b/compiler/hsSyn/HsUtils.lhs
@@ -737,3 +737,6 @@ collect_sig_pat (TuplePat pats _ _) acc = foldr collect_sig_lpat acc pats
 collect_sig_pat (ConPatIn _ ps)     acc = foldr collect_sig_lpat acc (hsConPatArgs ps)
 collect_sig_pat _                   acc = acc       -- Literals, vars, wildcard
 \end{code}
+
+
+