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=f84f0a4511094eb9f04ac886f86ac511f9e289a2;hp=4bbb479f9427c6989c6c4c27ae1594c3735ce6cc;hb=afdc0885532e8fb28840e8b78b02056c64fbaf77;hpb=7f2ce5cf1828ea3889ec8b67ecfb53b8431ad376

diff --git a/compiler/prelude/PrelNames.lhs b/compiler/prelude/PrelNames.lhs
index 4bbb479..f84f0a4 100644
--- a/compiler/prelude/PrelNames.lhs
+++ b/compiler/prelude/PrelNames.lhs
@@ -238,6 +238,8 @@ basicKnownKeyNames
         hetmet_pga_applyr_name,
         hetmet_pga_curryl_name,
         hetmet_pga_curryr_name,
+        hetmet_pga_loopl_name,
+        hetmet_pga_loopr_name,
 
         -- Annotation type checking
         toAnnotationWrapperName
@@ -971,6 +973,10 @@ 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,
@@ -1643,6 +1649,11 @@ 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