axel-0.0.13: src/Axel/Utils/Monad.hs

module Axel.Utils.Monad where

import Axel.Prelude

import Control.Monad (when)

whileM :: (Monad m) => m Bool -> m () -> m ()
whileM cond action = do
  cond' <- cond
  when cond' $ action >> whileM cond action