optimiseInKernelStms :: [Stm InKernel] -> InKernelM ()
optimiseInKernelStms = mapM_ optimiseInKernelStm
optimiseInKernelStms :: [Stm InKernel] -> InKernelM ()
optimiseInKernelStms = mapM_ optimiseInKernelStm
optimiseInKernelStms = mapM_ optimiseInKernelStm