From 25311512b0b601ac76eac078508fa14d2d9e91dd Mon Sep 17 00:00:00 2001 From: simonmar Date: Thu, 6 Oct 2005 10:38:22 +0000 Subject: [PATCH] [project @ 2005-10-06 10:38:22 by simonmar] small refactoring From: Autrijus Tang --- ghc/compiler/coreSyn/CoreUtils.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 1.7.10.4