eternal-0.1.6: src/Control/Eternal/Syntax/Logic.hs

{-# LANGUAGE Safe          #-}
{-# LANGUAGE UnicodeSyntax #-}

module Control.Eternal.Syntax.Logic
  ( ifSo
  , ifNot
  ) where

import           Control.Monad (unless, when)

ifSo ∷ IO () → Bool → IO ()
ifSo = flip when

ifNot ∷ IO () → Bool → IO ()
ifNot = flip unless