- mk_prim_Id prim_op mod name tyvar_tmpls arg_tys ty arity
- = mkPreludeId
- (mkPrimOpIdUnique (IBOX(tagOf_PrimOp prim_op)))
- (mkPreludeCoreName mod name)
- ty
- (noIdInfo
- `addInfo` (mkArityInfo arity)
- `addInfo_UF` (mkUnfolding EssentialUnfolding
- (mk_prim_unfold prim_op tyvar_tmpls arg_tys)))
+ mk_prim_Id prim_op name tyvar_tmpls arg_tys ty arity
+ = mkImported (mkPrimitiveName key (OrigName gHC_BUILTINS name)) ty
+ (noIdInfo `addInfo` (mkArityInfo arity)
+ `addInfo_UF` (mkUnfolding UnfoldAlways
+ (mk_prim_unfold prim_op tyvar_tmpls arg_tys)))
+ where
+ key = mkPrimOpIdUnique (IBOX(tagOf_PrimOp prim_op))