33 rivejä
760 B
Haskell
33 rivejä
760 B
Haskell
-- |
|
|
-- Module : HPath.IO.Utils
|
|
-- Copyright : © 2016 Julian Ospald
|
|
-- License : BSD3
|
|
--
|
|
-- Maintainer : Julian Ospald <hasufell@posteo.de>
|
|
-- Stability : experimental
|
|
-- Portability : portable
|
|
--
|
|
-- Random and general IO/monad utilities.
|
|
|
|
|
|
module HPath.IO.Utils where
|
|
|
|
|
|
import Control.Monad
|
|
(
|
|
when
|
|
, unless
|
|
)
|
|
|
|
|
|
-- |If the value of the first argument is True, then execute the action
|
|
-- provided in the second argument, otherwise do nothing.
|
|
whenM :: Monad m => m Bool -> m () -> m ()
|
|
whenM mb a = mb >>= (`when` a)
|
|
|
|
|
|
-- |If the value of the first argument is False, then execute the action
|
|
-- provided in the second argument, otherwise do nothing.
|
|
unlessM :: Monad m => m Bool -> m () -> m ()
|
|
unlessM mb a = mb >>= (`unless` a)
|