[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 (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)

diff --git a/ghc/compiler/deSugar/DsCCall.lhs b/ghc/compiler/deSugar/DsCCall.lhs
index bac1e98..91f0101 100644 (file)
--- 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 (file)
--- 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 )