[commit: ghc] wip/T10137: Apply findSingleValues after adding the off-range elements (1be0041)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/T10137
Link       : http://ghc.haskell.org/trac/ghc/changeset/1be0041bf81c0d7fcebf423097ff35b512f54e56/ghc

>---------------------------------------------------------------

commit 1be0041bf81c0d7fcebf423097ff35b512f54e56
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Sun Mar 8 20:00:31 2015 +0100

    Apply findSingleValues after adding the off-range elements


>---------------------------------------------------------------

1be0041bf81c0d7fcebf423097ff35b512f54e56
 compiler/cmm/CmmSwitch.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/cmm/CmmSwitch.hs b/compiler/cmm/CmmSwitch.hs
index 12c392b..4bd905e 100644
--- a/compiler/cmm/CmmSwitch.hs
+++ b/compiler/cmm/CmmSwitch.hs
@@ -134,8 +134,8 @@ createSwitchPlan ids =
   where
     (range, m, wrap) = addRange ids
     pieces = concatMap breakTooSmall $ splitAtHoles 10 m
-    flatPlan = findSingleValues $ mkFlatSwitchPlan (switchTargetsDefault ids) range pieces
-    plan = buildTree $ wrap flatPlan
+    flatPlan = findSingleValues $ wrap $ mkFlatSwitchPlan (switchTargetsDefault ids) range pieces
+    plan = buildTree $ flatPlan
 
 
 type SeparatedList b a = (a, [(b,a)])