X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fcompiler%2Fprelude%2FPrelNames.lhs;h=69d924f5eb5ef9e6b2bcd912156555eae51513a1;hp=2be6f8a8f29930c7af704d0fb214be79c41e6776;hb=0d197643ea29ae54ed91e51fc890893b2ae5e16c;hpb=44644ebe79c748861894de4813efd47dae6cb945

diff --git a/ghc/compiler/prelude/PrelNames.lhs b/ghc/compiler/prelude/PrelNames.lhs
index 2be6f8a..69d924f 100644
--- a/ghc/compiler/prelude/PrelNames.lhs
+++ b/ghc/compiler/prelude/PrelNames.lhs
@@ -188,7 +188,13 @@ basicKnownKeyNames
 	otherwiseIdName, 
 	plusIntegerName, timesIntegerName,
 	eqStringName, assertName, assertErrorName, runSTRepName,
-	printName, splitName, fstName, sndName,
+	printName, fstName, sndName,
+
+	-- MonadFix
+	monadFixClassName, mfixName,
+
+	-- Splittable class
+	splittableClassName, splitName,
 
 	-- Booleans
 	andName, orName
@@ -601,10 +607,12 @@ newStablePtrName      = varQual  pREL_STABLE FSLIT("newStablePtr") newStablePtrI
 runSTRepName	   = varQual pREL_ST  FSLIT("runSTRep") runSTRepIdKey
 
 -- The "split" Id for splittable implicit parameters
-splitName          = varQual gLA_EXTS FSLIT("split") splitIdKey
+splittableClassName = clsQual gLA_EXTS FSLIT("Splittable") splittableClassKey
+splitName           = methName splittableClassName FSLIT("split") splitIdKey
 
 -- Recursive-do notation
-mfixName	   = varQual mONAD_FIX FSLIT("mfix") mfixIdKey
+monadFixClassName  = clsQual mONAD_FIX FSLIT("MonadFix") monadFixClassKey
+mfixName	   = methName monadFixClassName FSLIT("mfix") mfixIdKey
 
 -- Arrow notation
 arrAName	   = varQual aRROW FSLIT("arr")	arrAIdKey
@@ -687,6 +695,9 @@ typeable4ClassKey	= mkPreludeClassUnique 24
 typeable5ClassKey	= mkPreludeClassUnique 25
 typeable6ClassKey	= mkPreludeClassUnique 26
 typeable7ClassKey	= mkPreludeClassUnique 27
+
+monadFixClassKey	= mkPreludeClassUnique 28
+splittableClassKey	= mkPreludeClassUnique 29
 \end{code}
 
 %************************************************************************