[GHC] #2245: Numeric literal printed wrong in error message

[GHC]

#2245: Numeric literal printed wrong in error message
-----------------------+----------------------------------------------------
    Reporter:  guest   |       Owner:          
        Type:  bug     |      Status:  new     
    Priority:  normal  |   Component:  Compiler
     Version:  6.9     |    Severity:  normal  
    Keywords:          |    Testcase:          
Architecture:  x86     |          Os:  MacOS X 
-----------------------+----------------------------------------------------
 Compile the following with -Wall

 {{{
 default (T)

 data T = T deriving (Eq, Ord, Read, Show)
 instance Num T
 instance Fractional T

 main = interact $ show . (< 1e400) . read
 }}}

 The error message says
 {{{
 Bug.hs:7:28:
     Warning: Defaulting the following constraint(s) to type `T'
              `Fractional b'
                arising from the literal `Infinity' at Bug.hs:7:28-32
 }}}

 There is no literal Infinity in my program, I wrote 1e400, which could be
 a perfectly good literal for the type T.  I don't wanted printed as
 Infinity.

-- 
Ticket URL: <http://hackage.haskell.org/trac/ghc/ticket/2245>
GHC <http://www.haskell.org/ghc/>
The Glasgow Haskell Compiler