Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch :
http://hackage.haskell.org/trac/ghc/changeset/fa91ea7e47adc63cffb992d0e413174b5376231f >--------------------------------------------------------------- commit fa91ea7e47adc63cffb992d0e413174b5376231f Author: Max Bolingbroke <batterseapo...@hotmail.com> Date: Wed Feb 15 22:14:45 2012 +0000 Remove unused variable >--------------------------------------------------------------- .../supercompile/Supercompile/Drive/Process3.hs | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/supercompile/Supercompile/Drive/Process3.hs b/compiler/supercompile/Supercompile/Drive/Process3.hs index b2a842f..0726cd9 100644 --- a/compiler/supercompile/Supercompile/Drive/Process3.hs +++ b/compiler/supercompile/Supercompile/Drive/Process3.hs @@ -337,8 +337,8 @@ memo opt = memo_opt , let is_ancestor = fmap fun mb_p_parent == Just (fun p) mm = MM { matchInstanceMatching = if not iNSTANCE_MATCHING then NoInstances else if is_ancestor then AllInstances else InstancesOfGeneralised } - , Just (heap_inst@(Heap h_inst _), k_inst, rn_lr) <- [-- (\res -> if isNothing res then pprTraceSC "no match:" (ppr (fun p)) res else pprTraceSC "match!" (ppr (fun p)) res) $ - match' mm (meaning p) reduced_state] + , Just (heap_inst, k_inst, rn_lr) <- [-- (\res -> if isNothing res then pprTraceSC "no match:" (ppr (fun p)) res else pprTraceSC "match!" (ppr (fun p)) res) $ + match' mm (meaning p) reduced_state] , let -- This will always succeed because the state had deeds for everything in its heap/stack anyway: Just remaining_deeds = claimDeeds (releaseStateDeed state) (heapSize heap_inst + stackSize k_inst) -- FIXME: prefer "more exact" matches _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
