X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2FhsSyn%2FHsUtils.lhs;h=9767afa87905d3e87f0b4c3e4f1de7a6dd34ff65;hb=e5c3b478b3cd1707cf122833822f44b2ac09b8e9;hp=cc57e0544181f02f9f625b004b7e44dc361f01bb;hpb=2d4d636af091b8da27466b5cf90011395a9c2f66;p=ghc-hetmet.git

diff --git a/compiler/hsSyn/HsUtils.lhs b/compiler/hsSyn/HsUtils.lhs
index cc57e05..9767afa 100644
--- 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}
+
+
+