From: sof <unknown>
Date: Mon, 4 May 1998 21:02:16 +0000 (+0000)
Subject: [project @ 1998-05-04 21:02:06 by sof]
X-Git-Tag: Approx_2487_patches~727
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b2bcd65847b48f62fd72497ccf43d867901ecf26;p=ghc-hetmet.git

[project @ 1998-05-04 21:02:06 by sof]
mk_thing: Added non-overloaded type signature
---

diff --git a/ghc/compiler/coreSyn/CoreSyn.lhs b/ghc/compiler/coreSyn/CoreSyn.lhs
index 3972e55..4d1f954 100644
--- 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)
diff --git a/ghc/compiler/deSugar/DsCCall.lhs b/ghc/compiler/deSugar/DsCCall.lhs
index bac1e98..91f0101 100644
--- a/ghc/compiler/deSugar/DsCCall.lhs
+++ b/ghc/compiler/deSugar/DsCCall.lhs
@@ -15,7 +15,7 @@ import DsUtils
 
 import TcHsSyn		( maybeBoxedPrimType )
 import CoreUtils	( coreExprType )
-import Id		( Id(..), dataConArgTys, idType )
+import Id		( Id, dataConArgTys, idType )
 import Maybes		( maybeToBool )
 import PrelVals		( packStringForCId )
 import PrimOp		( PrimOp(..) )
diff --git a/ghc/compiler/reader/RdrHsSyn.lhs b/ghc/compiler/reader/RdrHsSyn.lhs
index a3599df..338e025 100644
--- a/ghc/compiler/reader/RdrHsSyn.lhs
+++ b/ghc/compiler/reader/RdrHsSyn.lhs
@@ -55,7 +55,7 @@ module RdrHsSyn (
 
 import HsSyn
 import Lex
-import BasicTypes	( Module(..), IfaceFlavour(..), Unused )
+import BasicTypes	( Module, IfaceFlavour(..), Unused )
 import Name		( pprModule, OccName(..), pprOccName, 
 			  prefixOccName, NamedThing(..) )
 import Util		( thenCmp )