[project @ 2000-12-06 13:03:28 by simonmar]

[ghc-hetmet.git] / ghc / compiler / simplCore / LiberateCase.lhs

diff --git a/ghc/compiler/simplCore/LiberateCase.lhs b/ghc/compiler/simplCore/LiberateCase.lhs
index 5d4d921..57b94be 100644 (file)
--- a/ghc/compiler/simplCore/LiberateCase.lhs
+++ b/ghc/compiler/simplCore/LiberateCase.lhs
@@ -153,10 +153,8 @@ liberateCase dflags binds
   = do {
        showPass dflags "Liberate case" ;
        let { binds' = do_prog (initEnv opt_LiberateCaseThreshold) binds } ;
-       endPass dflags "Liberate case" 
-               (dopt Opt_D_verbose_core2core dflags)
+       endPass dflags "Liberate case" Opt_D_verbose_core2core binds'
                                {- no specific flag for dumping -} 
-               binds'
     }
   where
     do_prog env [] = []