Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : ghc-7.4

http://hackage.haskell.org/trac/ghc/changeset/102df6a7bc5657eef85f26d88ab6c071ec9b0b24

>---------------------------------------------------------------

commit 102df6a7bc5657eef85f26d88ab6c071ec9b0b24
Author: Simon Peyton Jones <[email protected]>
Date:   Fri Jan 13 15:46:56 2012 +0000

    Get the knownKeyNames for doubleFromInteger right
    
    There was a trivial typo which meant that important
    newly-added rules would never fire!

>---------------------------------------------------------------

 compiler/prelude/PrelNames.lhs |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/compiler/prelude/PrelNames.lhs b/compiler/prelude/PrelNames.lhs
index 705782c..e6eb83b 100644
--- a/compiler/prelude/PrelNames.lhs
+++ b/compiler/prelude/PrelNames.lhs
@@ -861,10 +861,10 @@ quotRemIntegerName    = varQual gHC_INTEGER_TYPE (fsLit 
"quotRemInteger")    quo
 divModIntegerName     = varQual gHC_INTEGER_TYPE (fsLit "divModInteger")     
divModIntegerIdKey
 quotIntegerName       = varQual gHC_INTEGER_TYPE (fsLit "quotInteger")       
quotIntegerIdKey
 remIntegerName        = varQual gHC_INTEGER_TYPE (fsLit "remInteger")        
remIntegerIdKey
-floatFromIntegerName  = varQual gHC_INTEGER_TYPE (fsLit 
"floatFromIntegerName")     floatFromIntegerIdKey
-doubleFromIntegerName = varQual gHC_INTEGER_TYPE (fsLit 
"doubleFromIntegerName")    doubleFromIntegerIdKey
-encodeFloatIntegerName  = varQual gHC_INTEGER_TYPE (fsLit 
"encodeFloatIntegerName")   encodeFloatIntegerIdKey
-encodeDoubleIntegerName = varQual gHC_INTEGER_TYPE (fsLit 
"encodeDoubleIntegerName")  encodeDoubleIntegerIdKey
+floatFromIntegerName  = varQual gHC_INTEGER_TYPE (fsLit "floatFromInteger")    
  floatFromIntegerIdKey
+doubleFromIntegerName = varQual gHC_INTEGER_TYPE (fsLit "doubleFromInteger")   
  doubleFromIntegerIdKey
+encodeFloatIntegerName  = varQual gHC_INTEGER_TYPE (fsLit 
"encodeFloatInteger")  encodeFloatIntegerIdKey
+encodeDoubleIntegerName = varQual gHC_INTEGER_TYPE (fsLit 
"encodeDoubleInteger") encodeDoubleIntegerIdKey
 gcdIntegerName        = varQual gHC_INTEGER_TYPE (fsLit "gcdInteger")        
gcdIntegerIdKey
 lcmIntegerName        = varQual gHC_INTEGER_TYPE (fsLit "lcmInteger")        
lcmIntegerIdKey
 andIntegerName        = varQual gHC_INTEGER_TYPE (fsLit "andInteger")        
andIntegerIdKey



_______________________________________________
Cvs-ghc mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/cvs-ghc

Reply via email to