X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fprelude%2FPrelNames.lhs;fp=compiler%2Fprelude%2FPrelNames.lhs;h=eaa3e8a42b5554841f4f30a3737faebcf1a3181c;hp=a2c81de678cd2dac40ce16a18a25423876b0a10d;hb=73f987d87baecc251dc4a5eef75dc488bb63eca0;hpb=da9d10064c084fed395e6030b1cb82bee2b140ed diff --git a/compiler/prelude/PrelNames.lhs b/compiler/prelude/PrelNames.lhs index a2c81de..eaa3e8a 100644 --- a/compiler/prelude/PrelNames.lhs +++ b/compiler/prelude/PrelNames.lhs @@ -214,32 +214,8 @@ basicKnownKeyNames randomClassName, randomGenClassName, monadPlusClassName, -- Code types - hetmet_brak_name, hetmet_esc_name, hetmet_csp_name, hetmet_flatten_name, hetmet_unflatten_name, hetmet_flattened_id_name, - hetmet_guest_integer_literal_name, hetmet_guest_string_literal_name, - hetmet_guest_char_literal_name, - hetmet_PGArrow_name, - hetmet_PGArrow_unit_name, - hetmet_PGArrow_tensor_name, - hetmet_PGArrow_exponent_name, - hetmet_pga_id_name, - hetmet_pga_comp_name, - hetmet_pga_first_name, - hetmet_pga_second_name, - hetmet_pga_cancell_name, - hetmet_pga_cancelr_name, - hetmet_pga_uncancell_name, - hetmet_pga_uncancelr_name, - hetmet_pga_assoc_name, - hetmet_pga_unassoc_name, - hetmet_pga_copy_name, - hetmet_pga_drop_name, - hetmet_pga_swap_name, - hetmet_pga_applyl_name, - hetmet_pga_applyr_name, - hetmet_pga_curryl_name, - hetmet_pga_curryr_name, - hetmet_pga_loopl_name, - hetmet_pga_loopr_name, + hetmet_brak_name, hetmet_esc_name, hetmet_csp_name, + hetmet_guest_integer_literal_name, hetmet_guest_string_literal_name, hetmet_guest_char_literal_name, -- Annotation type checking toAnnotationWrapperName @@ -917,65 +893,15 @@ emptyPName pkg = varQual (gHC_PARR pkg) (fsLit "emptyP") empty appPName pkg = varQual (gHC_PARR pkg) (fsLit "+:+") appPIdKey -- code type things -hetmet_brak_name, hetmet_esc_name, hetmet_csp_name, hetmet_flatten_name, hetmet_unflatten_name, hetmet_flattened_id_name :: Name +hetmet_brak_name, hetmet_esc_name, hetmet_csp_name :: Name hetmet_guest_integer_literal_name, hetmet_guest_string_literal_name, hetmet_guest_char_literal_name :: Name hetmet_brak_name = varQual gHC_HETMET_CODETYPES (fsLit "hetmet_brak") hetmet_brak_key hetmet_esc_name = varQual gHC_HETMET_CODETYPES (fsLit "hetmet_esc") hetmet_esc_key hetmet_csp_name = varQual gHC_HETMET_CODETYPES (fsLit "hetmet_csp") hetmet_csp_key -hetmet_flatten_name = varQual gHC_HETMET_CODETYPES (fsLit "pga_flatten") hetmet_flatten_key -hetmet_unflatten_name = varQual gHC_HETMET_CODETYPES (fsLit "pga_unflatten") hetmet_unflatten_key -hetmet_flattened_id_name = varQual gHC_HETMET_CODETYPES (fsLit "pga_flattened_id") hetmet_flattened_id_key hetmet_guest_integer_literal_name = varQual gHC_HETMET_CODETYPES (fsLit "guestIntegerLiteral") hetmet_guest_integer_literal_key hetmet_guest_string_literal_name = varQual gHC_HETMET_CODETYPES (fsLit "guestStringLiteral") hetmet_guest_string_literal_key hetmet_guest_char_literal_name = varQual gHC_HETMET_CODETYPES (fsLit "guestCharLiteral") hetmet_guest_char_literal_key -hetmet_PGArrow_name :: Name -hetmet_PGArrow_name = tcQual gHC_HETMET_PRIVATE (fsLit "PGArrow") hetmet_PGArrow_key -hetmet_PGArrow_unit_name :: Name -hetmet_PGArrow_unit_name = tcQual gHC_HETMET_GARROW (fsLit "GArrowUnit") hetmet_PGArrow_unit_key -hetmet_PGArrow_tensor_name :: Name -hetmet_PGArrow_tensor_name = tcQual gHC_HETMET_GARROW (fsLit "GArrowTensor") hetmet_PGArrow_tensor_key -hetmet_PGArrow_exponent_name :: Name -hetmet_PGArrow_exponent_name = tcQual gHC_HETMET_GARROW (fsLit "GArrowExponent") hetmet_PGArrow_exponent_key -hetmet_pga_id_name :: Name -hetmet_pga_id_name = varQual gHC_HETMET_PRIVATE (fsLit "pga_id") hetmet_pga_id_key -hetmet_pga_comp_name :: Name -hetmet_pga_comp_name = varQual gHC_HETMET_PRIVATE (fsLit "pga_comp") hetmet_pga_comp_key -hetmet_pga_first_name :: Name -hetmet_pga_first_name = varQual gHC_HETMET_PRIVATE (fsLit "pga_first") hetmet_pga_first_key -hetmet_pga_second_name :: Name -hetmet_pga_second_name = varQual gHC_HETMET_PRIVATE (fsLit "pga_second") hetmet_pga_second_key -hetmet_pga_cancell_name :: Name -hetmet_pga_cancell_name = varQual gHC_HETMET_PRIVATE (fsLit "pga_cancell") hetmet_pga_cancell_key -hetmet_pga_cancelr_name :: Name -hetmet_pga_cancelr_name = varQual gHC_HETMET_PRIVATE (fsLit "pga_cancelr") hetmet_pga_cancelr_key -hetmet_pga_uncancell_name :: Name -hetmet_pga_uncancell_name = varQual gHC_HETMET_PRIVATE (fsLit "pga_uncancell") hetmet_pga_uncancell_key -hetmet_pga_uncancelr_name :: Name -hetmet_pga_uncancelr_name = varQual gHC_HETMET_PRIVATE (fsLit "pga_uncancelr") hetmet_pga_uncancelr_key -hetmet_pga_assoc_name :: Name -hetmet_pga_assoc_name = varQual gHC_HETMET_PRIVATE (fsLit "pga_assoc") hetmet_pga_assoc_key -hetmet_pga_unassoc_name :: Name -hetmet_pga_unassoc_name = varQual gHC_HETMET_PRIVATE (fsLit "pga_unassoc") hetmet_pga_unassoc_key -hetmet_pga_copy_name :: Name -hetmet_pga_copy_name = varQual gHC_HETMET_PRIVATE (fsLit "pga_copy") hetmet_pga_copy_key -hetmet_pga_drop_name :: Name -hetmet_pga_drop_name = varQual gHC_HETMET_PRIVATE (fsLit "pga_drop") hetmet_pga_drop_key -hetmet_pga_swap_name :: Name -hetmet_pga_swap_name = varQual gHC_HETMET_PRIVATE (fsLit "pga_swap") hetmet_pga_swap_key -hetmet_pga_applyl_name :: Name -hetmet_pga_applyl_name = varQual gHC_HETMET_PRIVATE (fsLit "pga_applyl") hetmet_pga_applyl_key -hetmet_pga_applyr_name :: Name -hetmet_pga_applyr_name = varQual gHC_HETMET_PRIVATE (fsLit "pga_applyr") hetmet_pga_applyr_key -hetmet_pga_curryl_name :: Name -hetmet_pga_curryl_name = varQual gHC_HETMET_PRIVATE (fsLit "pga_curryl") hetmet_pga_curryl_key -hetmet_pga_curryr_name :: Name -hetmet_pga_curryr_name = varQual gHC_HETMET_PRIVATE (fsLit "pga_curryr") hetmet_pga_curryr_key -hetmet_pga_loopl_name :: Name -hetmet_pga_loopl_name = varQual gHC_HETMET_PRIVATE (fsLit "pga_loopl") hetmet_pga_loopl_key -hetmet_pga_loopr_name :: Name -hetmet_pga_loopr_name = varQual gHC_HETMET_PRIVATE (fsLit "pga_loopr") hetmet_pga_loopr_key - -- IO things ioTyConName, ioDataConName, thenIOName, bindIOName, returnIOName, failIOName :: Name @@ -1596,62 +1522,12 @@ hetmet_guest_integer_literal_key, hetmet_guest_string_literal_key, hetmet_guest_ hetmet_guest_integer_literal_key = mkPreludeMiscIdUnique 134 hetmet_guest_string_literal_key = mkPreludeMiscIdUnique 135 hetmet_guest_char_literal_key = mkPreludeMiscIdUnique 136 -hetmet_PGArrow_key :: Unique -hetmet_PGArrow_key = mkPreludeMiscIdUnique 137 -hetmet_pga_id_key :: Unique -hetmet_pga_id_key = mkPreludeMiscIdUnique 138 -hetmet_pga_comp_key :: Unique -hetmet_pga_comp_key = mkPreludeMiscIdUnique 139 -hetmet_pga_first_key :: Unique -hetmet_pga_first_key = mkPreludeMiscIdUnique 140 -hetmet_pga_second_key :: Unique -hetmet_pga_second_key = mkPreludeMiscIdUnique 141 -hetmet_pga_cancell_key :: Unique -hetmet_pga_cancell_key = mkPreludeMiscIdUnique 142 -hetmet_pga_cancelr_key :: Unique -hetmet_pga_cancelr_key = mkPreludeMiscIdUnique 143 -hetmet_pga_uncancell_key :: Unique -hetmet_pga_uncancell_key = mkPreludeMiscIdUnique 144 -hetmet_pga_uncancelr_key :: Unique -hetmet_pga_uncancelr_key = mkPreludeMiscIdUnique 145 -hetmet_pga_assoc_key :: Unique -hetmet_pga_assoc_key = mkPreludeMiscIdUnique 146 -hetmet_pga_unassoc_key :: Unique -hetmet_pga_unassoc_key = mkPreludeMiscIdUnique 147 -hetmet_pga_copy_key :: Unique -hetmet_pga_copy_key = mkPreludeMiscIdUnique 148 -hetmet_pga_drop_key :: Unique -hetmet_pga_drop_key = mkPreludeMiscIdUnique 149 -hetmet_pga_swap_key :: Unique -hetmet_pga_swap_key = mkPreludeMiscIdUnique 150 -hetmet_pga_applyl_key :: Unique -hetmet_pga_applyl_key = mkPreludeMiscIdUnique 151 -hetmet_pga_applyr_key :: Unique -hetmet_pga_applyr_key = mkPreludeMiscIdUnique 152 -hetmet_pga_curryl_key :: Unique -hetmet_pga_curryl_key = mkPreludeMiscIdUnique 153 -hetmet_pga_curryr_key :: Unique -hetmet_pga_curryr_key = mkPreludeMiscIdUnique 154 -hetmet_flatten_key = mkPreludeMiscIdUnique 155 -hetmet_unflatten_key = mkPreludeMiscIdUnique 156 -hetmet_flattened_id_key = mkPreludeMiscIdUnique 157 -hetmet_PGArrow_unit_key :: Unique -hetmet_PGArrow_unit_key = mkPreludeMiscIdUnique 158 -hetmet_PGArrow_tensor_key :: Unique -hetmet_PGArrow_tensor_key = mkPreludeMiscIdUnique 159 -hetmet_PGArrow_exponent_key :: Unique -hetmet_PGArrow_exponent_key = mkPreludeMiscIdUnique 160 - -hetmet_brak_key, hetmet_esc_key, hetmet_csp_key, hetmet_flatten_key, hetmet_unflatten_key, hetmet_flattened_id_key :: Unique + +hetmet_brak_key, hetmet_esc_key, hetmet_csp_key :: Unique hetmet_brak_key = mkPreludeMiscIdUnique 161 hetmet_esc_key = mkPreludeMiscIdUnique 162 hetmet_csp_key = mkPreludeMiscIdUnique 163 -hetmet_pga_loopl_key :: Unique -hetmet_pga_loopl_key = mkPreludeMiscIdUnique 164 -hetmet_pga_loopr_key :: Unique -hetmet_pga_loopr_key = mkPreludeMiscIdUnique 165 - ---------------- Template Haskell ------------------- -- USES IdUniques 200-499