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

{-# LANGUAGE UnicodeSyntax #-}
module Control.Eternal.Syntax.Logic
  ( ifSo
  , ifNot
  ) where

import Control.Monad (when, unless)

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

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