diff options
| author | simonpj@microsoft.com <unknown> | 2010-12-22 17:50:01 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2010-12-22 17:50:01 +0000 |
| commit | a677bc58308a39b339b22dd27d442fe6a910d41a (patch) | |
| tree | e889eb5df569af05fba3861358a2827f4e30b278 /compiler/coreSyn | |
| parent | de2957256a2a00e0344c042b26485f86170376ef (diff) | |
| download | haskell-a677bc58308a39b339b22dd27d442fe6a910d41a.tar.gz | |
White space only
Diffstat (limited to 'compiler/coreSyn')
| -rw-r--r-- | compiler/coreSyn/CoreUtils.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/coreSyn/CoreUtils.lhs b/compiler/coreSyn/CoreUtils.lhs index 3b7f1af3aa..2cf8885101 100644 --- a/compiler/coreSyn/CoreUtils.lhs +++ b/compiler/coreSyn/CoreUtils.lhs @@ -549,7 +549,7 @@ exprIsCheap' good_app other_expr -- Applications and variables go (Var _) [] = True -- Just a type application of a variable -- (f t1 t2 t3) counts as WHNF go (Var f) args - = case idDetails f of + = case idDetails f of RecSelId {} -> go_sel args ClassOpId {} -> go_sel args PrimOpId op -> go_primop op args |