tools-yj-0.1.0.24: src/Control/Monad/ToolsYj.hs

{-# OPTIONS_GHC -Wall -fno-warn-tabs #-}

module Control.Monad.ToolsYj where

import Data.Bool

whenDef :: Applicative m => a -> Bool -> m a -> m a
whenDef = flip . bool . pure

whenMaybe :: Applicative m => Maybe a -> (a -> m ()) -> m ()
whenMaybe = flip . maybe $ pure ()

whenMaybeDef :: Applicative m => b -> Maybe a -> (a -> m b) -> m b
whenMaybeDef = flip . maybe . pure