optimiseInBody :: Body InKernel -> InKernelM (Body InKernel)
optimiseInBody body = do
  stms' <- collectStms_ $ optimiseInKernelStms $ bodyStms body
  return body { bodyStms = stms' }
optimiseInBody :: Body InKernel -> InKernelM (Body InKernel)
optimiseInBody body = do
  stms' <- collectStms_ $ optimiseInKernelStms $ bodyStms body
  return body { bodyStms = stms' }
optimiseInBody body = do
  stms' <- collectStms_ $ optimiseInKernelStms $ bodyStms body
  return body { bodyStms = stms' }