From: simonpj@microsoft.com <unknown>
Date: Wed, 26 Jul 2006 12:18:07 +0000 (+0000)
Subject: Make mkApps etc infix, and left-associative
X-Git-Tag: After_FC_branch_merge~182
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=14d5afa72e8e86db95bd1c01d906b80b444e8d29

Make mkApps etc infix, and left-associative
---

diff --git a/compiler/coreSyn/CoreSyn.lhs b/compiler/coreSyn/CoreSyn.lhs
index 331a890..c2e3aba 100644
--- a/compiler/coreSyn/CoreSyn.lhs
+++ b/compiler/coreSyn/CoreSyn.lhs
@@ -57,6 +57,9 @@ import DataCon		( DataCon, dataConWorkId, dataConTag )
 import BasicTypes	( Activation )
 import FastString
 import Outputable
+
+infixl 4 `mkApps`, `mkValApps`, `mkTyApps`, `mkVarApps`
+-- Left associative, so that we can say (f `mkTyApps` xs `mkVarApps` ys)
 \end{code}
 
 %************************************************************************