[project @ 1998-05-04 21:02:06 by sof]

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

diff --git a/ghc/compiler/coreSyn/CoreSyn.lhs b/ghc/compiler/coreSyn/CoreSyn.lhs
index 3972e55..4d1f954 100644 (file)
--- a/ghc/compiler/coreSyn/CoreSyn.lhs
+++ b/ghc/compiler/coreSyn/CoreSyn.lhs
@@ -451,6 +451,10 @@ mkApp  fun = mk_thing (mkGenApp fun)
 mkCon  con = mk_thing (Con      con)
 mkPrim op  = mk_thing (Prim     op)
 
+mk_thing :: ([GenCoreArg val_occ flexi] -> GenCoreExpr val_bdr val_occ flexi)
+        -> [GenType flexi] 
+        -> [GenCoreArg val_occ flexi] 
+        -> GenCoreExpr val_bdr val_occ flexi
 mk_thing thing tys vals
   = ASSERT( all isValArg vals )
     thing (map TyArg tys ++ vals)