import CoreUtils
import CoreArity
import CoreFVs
-import CoreMonad ( endPass )
+import CoreMonad ( endPass, CoreToDo(..) )
import CoreSyn
import Type
import Coercion
floats2 <- corePrepTopBinds implicit_binds
return (deFloatTop (floats1 `appendFloats` floats2))
- endPass dflags "CorePrep" Opt_D_dump_prep binds_out []
+ endPass dflags CorePrep binds_out []
return binds_out
corePrepExpr :: DynFlags -> CoreExpr -> IO CoreExpr