diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2018-01-23 10:37:37 +0000 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2018-01-23 10:37:37 +0000 |
| commit | 30f275c3679d3f01d26c5d469931a0fb0b0c8541 (patch) | |
| tree | 7b71b48ef675b85b6916826b5524f1177c580604 /compiler/coreSyn/CoreArity.hs | |
| parent | 575c009d9e4b25384ef984c09b2c54f909693e93 (diff) | |
| download | haskell-wip/T14688.tar.gz | |
patchwip/T14688
Diffstat (limited to 'compiler/coreSyn/CoreArity.hs')
| -rw-r--r-- | compiler/coreSyn/CoreArity.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/coreSyn/CoreArity.hs b/compiler/coreSyn/CoreArity.hs index 945cad6d4a..538648d33b 100644 --- a/compiler/coreSyn/CoreArity.hs +++ b/compiler/coreSyn/CoreArity.hs @@ -514,9 +514,9 @@ getBotArity _ = Nothing mk_cheap_fn :: DynFlags -> CheapAppFun -> CheapFun mk_cheap_fn dflags cheap_app | not (gopt Opt_DictsCheap dflags) - = \e _ -> exprIsCheapX cheap_app e + = \e _ -> exprIsCheapX True cheap_app e | otherwise - = \e mb_ty -> exprIsCheapX cheap_app e + = \e mb_ty -> exprIsCheapX True cheap_app e || case mb_ty of Nothing -> False Just ty -> isDictLikeTy ty |