wolf-0.3.0: src/Network/AWS/Flow/Prelude.hs

module Network.AWS.Flow.Prelude
  ( module BasicPrelude
  , module Control.Lens
  , module Control.Monad.Reader
  , module Control.Monad.Trans.AWS
  , maybe_
  , maybe'
  ) where

import BasicPrelude            hiding (uncons, (<.>))
import Control.Lens
import Control.Monad.Reader
import Control.Monad.Trans.AWS

{-# ANN module ("HLint: ignore Use import/export shortcut"::String) #-}

maybe_ :: Monad m => Maybe a -> (a -> m ()) -> m ()
maybe_ m f = maybe (return ()) f m

maybe' :: Maybe a -> b -> (a -> b) -> b
maybe' m b a = maybe b a m