haskey-0.1.0.0: src/Database/Haskey/Utils/Monad.hs

module Database.Haskey.Utils.Monad where

ifM :: Monad m => m Bool -> m a -> m a -> m a
ifM f y n = do f' <- f; if f' then y else n