diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2016-02-24 16:22:36 -0500 |
|---|---|---|
| committer | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2016-02-24 16:41:55 -0500 |
| commit | a9dc62ae3a28a7c5fc173895f148e65c6ffc14de (patch) | |
| tree | b52e5881bfaa2438233aea75fdc2420a62322ba8 /compiler/profiling | |
| parent | d8c64e86361f6766ebe26a262bb229fb8301a42a (diff) | |
| download | haskell-a9dc62ae3a28a7c5fc173895f148e65c6ffc14de.tar.gz | |
Remove "use mask" from StgAlt syntax
Reviewers: austin, bgamari, simonpj
Reviewed By: simonpj
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D1933
Diffstat (limited to 'compiler/profiling')
| -rw-r--r-- | compiler/profiling/SCCfinal.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/profiling/SCCfinal.hs b/compiler/profiling/SCCfinal.hs index 6bd00b0f61..2b2e329841 100644 --- a/compiler/profiling/SCCfinal.hs +++ b/compiler/profiling/SCCfinal.hs @@ -160,9 +160,9 @@ stgMassageForProfiling dflags mod_name _us stg_binds alts' <- mapM do_alt alts return (StgCase expr' bndr alt_type alts') where - do_alt (id, bs, use_mask, e) = do + do_alt (id, bs, e) = do e' <- do_expr e - return (id, bs, use_mask, e') + return (id, bs, e') do_expr (StgLet b e) = do (b,e) <- do_let b e |