module Quox.BoolExtra

import public Data.Bool


infixr 5 `andM`
infixr 4 `orM`

public export
andM, orM : Monad m => m Bool -> m Bool -> m Bool
andM a b = if     !a then b else pure False
orM  a b = if not !a then b else pure True