From b2bcd65847b48f62fd72497ccf43d867901ecf26 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 4 May 1998 21:02:16 +0000
Subject: [PATCH] [project @ 1998-05-04 21:02:06 by sof] mk_thing: Added
non-overloaded type signature
---
ghc/compiler/coreSyn/CoreSyn.lhs | 4 ++++
ghc/compiler/deSugar/DsCCall.lhs | 2 +-
ghc/compiler/reader/RdrHsSyn.lhs | 2 +-
3 files changed, 6 insertions(+), 2 deletions(-)
diff --git a/ghc/compiler/coreSyn/CoreSyn.lhs b/ghc/compiler/coreSyn/CoreSyn.lhs
index 3972e55b997a..4d1f95464c53 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 bac1e98a6927..91f0101ed321 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 a3599df598b5..338e025c43de 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 )
--
GitLab