Fix bug in error message

[ghc-hetmet.git] / compiler / coreSyn / CoreUtils.lhs

diff --git a/compiler/coreSyn/CoreUtils.lhs b/compiler/coreSyn/CoreUtils.lhs
index 69f78fa..c59c751 100644 (file)
--- a/compiler/coreSyn/CoreUtils.lhs
+++ b/compiler/coreSyn/CoreUtils.lhs
@@ -476,7 +476,7 @@ exprIsCheap other_expr      -- Applications and variables
        -- to bother to check the number of args
  
     --------------
-    go_sel [arg] = exprIsTrivial arg   -- I'm experimenting with making record selection
+    go_sel [arg] = exprIsCheap arg     -- I'm experimenting with making record selection
     go_sel other = False               -- 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