cvs commit: fptools/libraries/base/Text/Read Lex.hs

[Sven Panne]

panne       2002/06/09 07:20:06 PDT

  Modified files:
    libraries/base/Text/Read Lex.hs 
  Log:
  Use :%, not % for Inf/NaN, the latter would immediately lead to a
  runtime error. Note that
  
     isInfinite (read "Infinity" :: Float)
  
  or
  
     isInfinite (fromRational (1 :% 0))
  
  still don't work, because fromRational is not OK for those cases.
  
  Revision  Changes    Path
  1.4       +3 -3      fptools/libraries/base/Text/Read/Lex.hs