diff --git a/ghc/compiler/basicTypes/IdInfo.lhs b/ghc/compiler/basicTypes/IdInfo.lhs
index c92f94318a679b260021c9303f237373a460baf6..c73df67c19485263be5cbb6cadc8e861b2450232 100644
--- a/ghc/compiler/basicTypes/IdInfo.lhs
+++ b/ghc/compiler/basicTypes/IdInfo.lhs
@@ -112,20 +112,18 @@ noIdInfo = IdInfo {
 
 \begin{code}
 ppIdInfo :: IdInfo -> SDoc
-ppIdInfo (IdInfo {arityInfo, 
-		  demandInfo,
-		  specInfo,
-		  strictnessInfo, 
-		  unfoldingInfo,
-		  updateInfo, 
-		  cafInfo,
-		  inlinePragInfo})
+ppIdInfo (IdInfo {arityInfo      = a,
+		  demandInfo	 = d,
+		  strictnessInfo = s,
+		  updateInfo 	 = u,
+		  cafInfo	 = c
+		  }) 
   = hsep [
-	    ppArityInfo arityInfo,
-	    ppUpdateInfo updateInfo,
-	    ppStrictnessInfo strictnessInfo,
-	    ppr demandInfo,
-	    ppCafInfo cafInfo
+	    ppArityInfo a,
+	    ppUpdateInfo u,
+	    ppStrictnessInfo s,
+	    ppr d,
+	    ppCafInfo c
 	-- Inline pragma printed out with all binders; see PprCore.pprIdBndr
 	]
 \end{code}