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)
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(..) )
import HsSyn
import Lex
-import BasicTypes ( Module(..), IfaceFlavour(..), Unused )
+import BasicTypes ( Module, IfaceFlavour(..), Unused )
import Name ( pprModule, OccName(..), pprOccName,
prefixOccName, NamedThing(..) )
import Util ( thenCmp )