From: simonmar <unknown>
Date: Thu, 6 Oct 2005 10:38:22 +0000 (+0000)
Subject: [project @ 2005-10-06 10:38:22 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~191
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=25311512b0b601ac76eac078508fa14d2d9e91dd;p=ghc-hetmet.git

[project @ 2005-10-06 10:38:22 by simonmar]
small refactoring

From: Autrijus Tang <autrijus@autrijus.org>
---

diff --git a/ghc/compiler/coreSyn/CoreUtils.lhs b/ghc/compiler/coreSyn/CoreUtils.lhs
index 8aba9b1..97091fb 100644
--- a/ghc/compiler/coreSyn/CoreUtils.lhs
+++ b/ghc/compiler/coreSyn/CoreUtils.lhs
@@ -455,7 +455,7 @@ idAppIsCheap id n_val_args
   | otherwise 
   = case globalIdDetails id of
 	DataConWorkId _ -> True
-	RecordSelId _ _ -> n_val_args == 1 	-- I'm experimenting with making record selection
+	RecordSelId {}  -> n_val_args == 1 	-- I'm experimenting with making record selection
 	ClassOpId _     -> n_val_args == 1 	-- look cheap, so we will substitute it inside a
 						-- lambda.  Particularly for dictionary field selection.
 		-- BUT: Take care with (sel d x)!  The (sel d) might be cheap, but