From fac53ab4ad02100bcb54079a8870cc339a09111a Mon Sep 17 00:00:00 2001 From: simonpj Date: Fri, 19 Mar 2004 13:24:52 +0000 Subject: [PATCH] [project @ 2004-03-19 13:24:52 by simonpj] Fix naming bogon for Typeable --- ghc/compiler/prelude/PrelNames.lhs | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/ghc/compiler/prelude/PrelNames.lhs b/ghc/compiler/prelude/PrelNames.lhs index 5e4fece..2eb29f3 100644 --- a/ghc/compiler/prelude/PrelNames.lhs +++ b/ghc/compiler/prelude/PrelNames.lhs @@ -557,14 +557,14 @@ realFloatClassName = clsQual pREL_FLOAT FSLIT("RealFloat") realFloatClassKey ixClassName = clsQual pREL_ARR FSLIT("Ix") ixClassKey -- Class Typeable -typeableClassName = clsQual tYPEABLE FSLIT("Typeable") typeableClassKey -typeable1ClassName = clsQual tYPEABLE FSLIT("Typeable") typeable1ClassKey -typeable2ClassName = clsQual tYPEABLE FSLIT("Typeable") typeable2ClassKey -typeable3ClassName = clsQual tYPEABLE FSLIT("Typeable") typeable3ClassKey -typeable4ClassName = clsQual tYPEABLE FSLIT("Typeable") typeable4ClassKey -typeable5ClassName = clsQual tYPEABLE FSLIT("Typeable") typeable5ClassKey -typeable6ClassName = clsQual tYPEABLE FSLIT("Typeable") typeable6ClassKey -typeable7ClassName = clsQual tYPEABLE FSLIT("Typeable") typeable7ClassKey +typeableClassName = clsQual tYPEABLE FSLIT("Typeable") typeableClassKey +typeable1ClassName = clsQual tYPEABLE FSLIT("Typeable1") typeable1ClassKey +typeable2ClassName = clsQual tYPEABLE FSLIT("Typeable2") typeable2ClassKey +typeable3ClassName = clsQual tYPEABLE FSLIT("Typeable3") typeable3ClassKey +typeable4ClassName = clsQual tYPEABLE FSLIT("Typeable4") typeable4ClassKey +typeable5ClassName = clsQual tYPEABLE FSLIT("Typeable5") typeable5ClassKey +typeable6ClassName = clsQual tYPEABLE FSLIT("Typeable6") typeable6ClassKey +typeable7ClassName = clsQual tYPEABLE FSLIT("Typeable7") typeable7ClassKey typeableClassNames = [ typeableClassName, typeable1ClassName, typeable2ClassName , typeable3ClassName, typeable4ClassName, typeable5ClassName -- 1.7.10.4