applySteps :: (CheckpointMonad m, FuelMonad m) => [Step] -> Module a -> m (Module a)
applySteps steps m = let passes = map toPass steps
                     in applyPasses1 passes m
applySteps :: (CheckpointMonad m, FuelMonad m) => [Step] -> Module a -> m (Module a)
applySteps steps m = let passes = map toPass steps
                     in applyPasses1 passes m
applySteps steps m = let passes = map toPass steps
                     in applyPasses1 passes m