X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fprelude%2FPrelNames.lhs;h=9fd1419c375e0723b7226f6e608d0712072d03ac;hp=3d5703346c32d07bf9add7b3fe656016d79ae2b6;hb=f2dcf256399e9a2de6343c625630b51f8abf4863;hpb=8382f3ad690ab5c26bc3866f9b024bc7a2bc6308

diff --git a/compiler/prelude/PrelNames.lhs b/compiler/prelude/PrelNames.lhs
index 3d57033..9fd1419 100644
--- a/compiler/prelude/PrelNames.lhs
+++ b/compiler/prelude/PrelNames.lhs
@@ -453,6 +453,9 @@ unpackCStringFoldrName  = varQual pREL_BASE FSLIT("unpackFoldrCString#") unpackC
 unpackCStringUtf8Name   = varQual pREL_BASE FSLIT("unpackCStringUtf8#") unpackCStringUtf8IdKey
 eqStringName	 	= varQual pREL_BASE FSLIT("eqString")  eqStringIdKey
 
+-- The 'inline' function
+inlineIdName	 	= varQual pREL_BASE FSLIT("inline") inlineIdKey
+
 -- Base classes (Eq, Ord, Functor)
 eqClassName	  = clsQual pREL_BASE FSLIT("Eq")      eqClassKey
 eqName		  = methName eqClassName FSLIT("==")   eqClassOpKey
@@ -911,6 +914,8 @@ breakpointCondIdKey           = mkPreludeMiscIdUnique 63
 breakpointJumpIdKey           = mkPreludeMiscIdUnique 64
 breakpointCondJumpIdKey       = mkPreludeMiscIdUnique 65
 
+inlineIdKey		      = mkPreludeMiscIdUnique 66
+
 -- Parallel array functions
 nullPIdKey	              = mkPreludeMiscIdUnique 80
 lengthPIdKey		      = mkPreludeMiscIdUnique 81