Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch :
http://hackage.haskell.org/trac/ghc/changeset/02523b619254b4d2308a534fde692d108490f66f >--------------------------------------------------------------- commit 02523b619254b4d2308a534fde692d108490f66f Author: Max Bolingbroke <batterseapo...@hotmail.com> Date: Thu Oct 27 09:28:03 2011 +0100 Try not to panic in bindCapturedFloats (still a hack) >--------------------------------------------------------------- .../supercompile/Supercompile/Drive/Process2.hs | 5 +++-- 1 files changed, 3 insertions(+), 2 deletions(-) diff --git a/compiler/supercompile/Supercompile/Drive/Process2.hs b/compiler/supercompile/Supercompile/Drive/Process2.hs index 956ac7c..3dd39f8 100644 --- a/compiler/supercompile/Supercompile/Drive/Process2.hs +++ b/compiler/supercompile/Supercompile/Drive/Process2.hs @@ -240,8 +240,9 @@ promise state ms = (p, ms') } instance MonadStatics (FulfilmentT ScpM) where - bindCapturedFloats fvs mx | isEmptyVarSet fvs = liftM ((,) []) mx - | otherwise = pprPanic "bindCapturedFloats: does not support statics" (ppr fvs) + --bindCapturedFloats fvs mx | isEmptyVarSet fvs = liftM ((,) []) mx + -- | otherwise = pprPanic "bindCapturedFloats: does not support statics" (ppr fvs) + bindCapturedFloats _fvs mx = liftM ((,) []) mx -- FIXME: do something other than hope for the best monitorFVs = liftM ((,) emptyVarSet) memo :: (Applicative t, Monad m) _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
