shithub: MicroHs

ref: db48432f3e0de3f17fbd65ac3798fbe9d01d035b
dir: /lib/Data/Bool.hs/

View raw version 
-- Copyright 2023 Lennart Augustsson
-- See LICENSE file for full license.
module Data.Bool(
  module Data.Bool,
  module Data.Bool_Type
  ) where
import Data.Bool_Type

--Yinfixr 2 ||
(||) :: Bool -> Bool -> Bool
(||) x y =
  case x of
    False -> y
    True  -> True

--Yinfixr 3 &&
(&&) :: Bool -> Bool -> Bool
(&&) x y =
  case x of
    False -> False
    True  -> y

not :: Bool -> Bool
not b =
  case b of
    False -> True
    True  -> False