[project @ 1996-04-25 13:02:32 by partain]

[ghc-hetmet.git] / ghc / compiler / basicTypes / Id.lhs

diff --git a/ghc/compiler/basicTypes/Id.lhs b/ghc/compiler/basicTypes/Id.lhs
index b48d5e2..7815d7d 100644 (file)
--- a/ghc/compiler/basicTypes/Id.lhs
+++ b/ghc/compiler/basicTypes/Id.lhs
@@ -1013,7 +1013,11 @@ getIdNamePieces show_uniqs id
 
       TupleConId n _ -> [nameOf (origName n)]
 
-      RecordSelId lbl -> panic "getIdNamePieces:RecordSelId"
+      RecordSelId lbl ->
+       let n = fieldLabelName lbl
+        in
+       case (moduleNamePair n) of { (mod, name) ->
+       if isPreludeDefinedName n then [name] else [mod, name] }
 
       ImportedId n -> get_fullname_pieces n
       PreludeId  n -> get_fullname_pieces n