diff options
| author | sof <unknown> | 1998-05-04 21:02:16 +0000 |
|---|---|---|
| committer | sof <unknown> | 1998-05-04 21:02:16 +0000 |
| commit | b2bcd65847b48f62fd72497ccf43d867901ecf26 (patch) | |
| tree | 493417f964ecb75d6a44965417bafe1cb042c091 | |
| parent | e0eaaf09894f74939166568573b36cb5bdafcfc7 (diff) | |
| download | haskell-b2bcd65847b48f62fd72497ccf43d867901ecf26.tar.gz | |
[project @ 1998-05-04 21:02:06 by sof]
mk_thing: Added non-overloaded type signature
| -rw-r--r-- | ghc/compiler/coreSyn/CoreSyn.lhs | 4 | ||||
| -rw-r--r-- | ghc/compiler/deSugar/DsCCall.lhs | 2 | ||||
| -rw-r--r-- | 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 3972e55b99..4d1f95464c 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 bac1e98a69..91f0101ed3 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 a3599df598..338e025c43 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 ) |