[remove last vestiges of old class class
John Meacham <john@repetae.net>**20051206130417] hunk ./E/Values.hs 28
-eTuple es = ELit $ LitCons (toTuple (length es)) es (ltTuple ts) where
+eTuple es = ELit $ LitCons (nameTuple DataConstructor (length es)) es (ltTuple ts) where
hunk ./E/Values.hs 98
-eCaseTup e vs w = ECase e (tVr 0 (getType e)) [Alt (LitCons (toTuple (length vs)) vs (getType e)) w] Nothing
+eCaseTup e vs w = ECase e (tVr 0 (getType e)) [Alt (LitCons (nameTuple DataConstructor (length vs)) vs (getType e)) w] Nothing
hunk ./FrontEnd/Class.hs 520
-getHsTypeCons (HsTyTuple xs) = nameName $ toTuple (length xs)
+getHsTypeCons (HsTyTuple xs) = toTuple (length xs)
hunk ./Name/Names.hs 8
+-- class_foo for classes
hunk ./Name/Names.hs 37
-{-
--- These should go away
-instance ValName Name where
-    hsValName (a,b) = toName Val (a,b)
-    hsTypName (a,b) = toName TypeVal (a,b)
-    hsUnqualTypName b = toName TypeVal b
-
-instance ValName HsName where
-    hsValName (a,b) = Qual (Module a) $ HsIdent b
-    hsUnqualValName b = UnQual $ HsIdent b
--}
hunk ./Name/Names.hs 40
-instance ToTuple Name where
-    toTuple n = toName DataConstructor (toTuple n :: (String,String))
+--No tuple instance because it is easy to get the namespace wrong. use 'nameTuple'
+--instance ToTuple Name where
+--    toTuple n = toName DataConstructor (toTuple n :: (String,String))
hunk ./Name/VConsts.hs 75
--- This is stupid
-class ClassNames a where
-    classEq :: a
-    classOrd :: a
-    classEnum :: a
-    classBounded :: a
-    classShow :: a
-    classRead :: a
-    classIx :: a
-    classFunctor :: a
-    classMonad :: a
-    classNum  :: a
-    classReal :: a
-    classIntegral :: a
-    classFractional :: a
-    classFloating :: a
-    classRealFrac :: a
-    classRealFloat :: a
hunk ./Name/VConsts.hs 76
-
hunk ./Name/VConsts.hs 93
-instance ClassNames (String,String) where
-    classEq = ("Prelude","Eq")
-    classOrd = ("Prelude","Ord")
-    classEnum = ("Prelude","Enum")
-    classBounded = ("Prelude","Bounded")
-    classShow = ("Prelude.Text","Show")
-    classRead = ("Prelude.Text","Read")
-    classIx = ("Ix","Ix")
-    classFunctor = ("Prelude","Functor")
-    classMonad = ("Prelude","Monad")
-    classNum = ("Prelude","Num")
-    classReal = ("Prelude","Real")
-    classIntegral = ("Prelude","Integral")
-    classFractional = ("Prelude","Fractional")
-    classFloating = ("Prelude","Floating")
-    classRealFrac = ("Prelude","RealFrac")
-    classRealFloat = ("Prelude","RealFloat")
-
-_derivableClasses,_numClasses,_stdClasses :: ClassNames a => [a]
-
-_stdClasses = [
-    classEq,
-    classOrd,
-    classEnum,
-    classBounded,
-    classShow,
-    classRead,
-    classIx,
-    classFunctor,
-    classMonad,
-    classNum ,
-    classReal,
-    classIntegral,
-    classFractional,
-    classFloating,
-    classRealFrac,
-    classRealFloat
-    ]
-
-_numClasses = [
-    classNum ,
-    classReal,
-    classIntegral,
-    classFractional,
-    classFloating,
-    classRealFrac,
-    classRealFloat
-    ]
-
-
-_derivableClasses = [
-    classEq,
-    classOrd,
-    classEnum,
-    classBounded,
-    classShow,
-    classRead
-    ]