diff options
| author | Michal Terepeta <michal.terepeta@gmail.com> | 2016-12-14 16:47:05 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-12-15 10:42:25 -0500 |
| commit | 27287c802010ddf4f5d633de6b61b40a50a38c64 (patch) | |
| tree | 81cdda0ca1663be8233c29ca29a7b27b6f8eab57 /compiler/cmm/CmmPipeline.hs | |
| parent | be5384cea2b89791a9334c4eaa313edcc4055042 (diff) | |
| download | haskell-27287c802010ddf4f5d633de6b61b40a50a38c64.tar.gz | |
procPointAnalysis doesn't need UniqSM
`procPointAnalysis` doesn't need to run in `UniqSM` (it consists of a
single `return` and the call to `analyzeCmm` function which is pure).
Making it non-monadic simplifies the code a bit.
Signed-off-by: Michal Terepeta <michal.terepeta@gmail.com>
Test Plan: validate
Reviewers: austin, bgamari, simonmar
Reviewed By: simonmar
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D2837
Diffstat (limited to 'compiler/cmm/CmmPipeline.hs')
| -rw-r--r-- | compiler/cmm/CmmPipeline.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/cmm/CmmPipeline.hs b/compiler/cmm/CmmPipeline.hs index b19e4180f8..a0fe4b1f12 100644 --- a/compiler/cmm/CmmPipeline.hs +++ b/compiler/cmm/CmmPipeline.hs @@ -109,8 +109,8 @@ cpsTop hsc_env proc = g <- if splitting_proc_points then do ------------- Split into separate procedures ----------------------- - pp_map <- {-# SCC "procPointAnalysis" #-} runUniqSM $ - procPointAnalysis proc_points g + let pp_map = {-# SCC "procPointAnalysis" #-} + procPointAnalysis proc_points g dumpWith dflags Opt_D_dump_cmm_procmap "procpoint map" $ ppr pp_map g <- {-# SCC "splitAtProcPoints" #-} runUniqSM $ |