:browse prints record selectors too many times

[simonpj]

Kazu Yamamoto points out that this module

module Test (R(..)) where
data R = R { x :: Char, y :: Int, z :: Float }

when loaded into GHCi 6.12, and ":browse", displays this (yes, all four lines):

data R = R {x :: Char, y :: Int, z :: Float}
data R = R {x :: Char, ...}
data R = R {..., y :: Int, ...}
data R = R {..., z :: Float}

The problem is that GHCi is printing a line for each record selector individually.

[simonpj]

Fixed by

Tue May 25 16:31:26 BST 2010  simonpj@microsoft.com
  * Refactor pretty printing of TyThings to fix Trac #4015

    M ./compiler/main/PprTyThing.hs -72 +73
    M ./ghc/InteractiveUI.hs -3 +6