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