From 14d5afa72e8e86db95bd1c01d906b80b444e8d29 Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Wed, 26 Jul 2006 12:18:07 +0000
Subject: [PATCH] Make mkApps etc infix, and left-associative

---
 compiler/coreSyn/CoreSyn.lhs |    3 +++
 1 file changed, 3 insertions(+)

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}
 
 %************************************************************************
-- 
1.7.10.4