[commit: ghc] wip/T10137: Make it validate-clean (0e65b8f)

[git at git.haskell.org]

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

On branch  : wip/T10137
Link       : http://ghc.haskell.org/trac/ghc/changeset/0e65b8f399d1c7f27cdb2891add8f8fa31c82787/ghc

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

commit 0e65b8f399d1c7f27cdb2891add8f8fa31c82787
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Tue Mar 10 22:50:02 2015 +0100

    Make it validate-clean


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

0e65b8f399d1c7f27cdb2891add8f8fa31c82787
 compiler/cmm/CmmCreateSwitchPlans.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/cmm/CmmCreateSwitchPlans.hs b/compiler/cmm/CmmCreateSwitchPlans.hs
index 836de40..9b0f589 100644
--- a/compiler/cmm/CmmCreateSwitchPlans.hs
+++ b/compiler/cmm/CmmCreateSwitchPlans.hs
@@ -37,7 +37,7 @@ cmmCreateSwitchPlans dflags g = do
 
 visitSwitches :: DynFlags -> CmmBlock -> UniqSM [CmmBlock]
 visitSwitches dflags block
-  | (entry@(CmmEntry l scope), middle, CmmSwitch expr ids) <- blockSplit block
+  | (entry@(CmmEntry _ scope), middle, CmmSwitch expr ids) <- blockSplit block
   = do
     let plan = createSwitchPlan ids