[GHC] #4085: minor External Core prettyprinter bug

[GHC]

#4085: minor External Core prettyprinter bug
---------------------------------+------------------------------------------
    Reporter:  tim               |       Owner:               
        Type:  bug               |      Status:  new          
    Priority:  normal            |   Component:  External Core
     Version:  6.12.2            |    Keywords:               
          Os:  Unknown/Multiple  |    Testcase:               
Architecture:  Unknown/Multiple  |     Failure:  Other        
---------------------------------+------------------------------------------

Comment(by tim):

 trac wouldn't let me attach the patch since the change history is too big,
 but it's at:

 {{{ http://cs.pdx.edu/~tjc/Patches/core-prettyprinter.dpatch }}}

 and the full text of the relevant change itself is:

 {{{
 Tue May  4 10:56:04 PDT 2010  Tim Chevalier <chevalier at alum.wellesley.edu>
   * Core prettyprinter fixes
     {
     hunk ./compiler/coreSyn/PprExternalCore.lhs 11
     +import Data.Ratio
     hunk ./compiler/coreSyn/PprExternalCore.lhs 192
     --- we use (text (show r)) because "(rational r)" was printing out
 things
     +-- we use (text (show (numerator r))) (and the same for denominator)
     +-- because "(rational r)" was printing out things
     hunk ./compiler/coreSyn/PprExternalCore.lhs 195
     -plit (Lrational r t) = parens (text (show r) <>  text "::" <> pty t)
     +plit (Lrational r t) = parens (text (show (numerator r)) <+> char '%'
     +   <+> text (show (denominator r)) <>  text "::" <> pty t)
     }
 }}}

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