hetmet_pga_applyr_name,
hetmet_pga_curryl_name,
hetmet_pga_curryr_name,
+ hetmet_pga_loopl_name,
+ hetmet_pga_loopr_name,
-- Annotation type checking
toAnnotationWrapperName
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,
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