Add new field to TySynonym

[ghc-hetmet.git] / compiler / coreSyn / CoreSyn.lhs

diff --git a/compiler/coreSyn/CoreSyn.lhs b/compiler/coreSyn/CoreSyn.lhs
index 201d866..c2e3aba 100644 (file)
--- 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}
 
 %************************************************************************
@@ -123,9 +126,6 @@ data Note
        Type            -- The to-type:   type of whole coerce expression
        Type            -- The from-type: type of enclosed expression
 
-  | InlineCall         -- Instructs simplifier to inline
-                       -- the enclosed call
-
   | InlineMe           -- Instructs simplifer to treat the enclosed expression
                        -- as very small, and inline it at its call sites