13 lines
234 B
Idris
13 lines
234 B
Idris
|
module Quox.BoolExtra
|
||
|
|
|
||
|
|
import public Data.Bool
|
||
|
|
|
||
|
|
|
||
|
|
infixr 5 <&&>
|
||
|
|
infixr 4 <||>
|
||
|
|
|
||
|
|
public export
|
||
|
|
(<&&>), (<||>) : Monad m => m Bool -> m Bool -> m Bool
|
||
|
|
a <&&> b = if !a then b else pure False
|
||
|
|
a <||> b = if not !a then b else pure True
|