[commit: ghc] : Try not to panic in bindCapturedFloats (still a hack) (02523b6)

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : 

http://hackage.haskell.org/trac/ghc/changeset/02523b619254b4d2308a534fde692d108490f66f

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

commit 02523b619254b4d2308a534fde692d108490f66f
Author: Max Bolingbroke <[email protected]>
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)