[GHC] #2076: rational infinities don't compare correctly to each other

[GHC]

#2076: rational infinities don't compare correctly to each other
----------------------------+-----------------------------------------------
    Reporter:  uhollerbach  |       Owner:          
        Type:  bug          |      Status:  new     
    Priority:  normal       |   Component:  Compiler
     Version:  6.8.2        |    Severity:  normal  
    Keywords:               |    Testcase:          
Architecture:  Multiple     |          Os:  Unknown 
----------------------------+-----------------------------------------------
 Let pinf = 1%0, and ninf = (-1)%0; then (min ninf pinf) is correctly
 reported as (-1)%0, but (min pinf ninf) is reported as 1%0. Similar
 problems exist with max, (<), (>), (<=), and (>=). The (hopefully
 attached) test program shows the trouble. I have checked this on both
 32-bit x86 and 64-bit amd64, both with ghc 6.8.2, both linux; both show
 the same trouble.

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