Quite a few more bang files for testing.
This commit is contained in:
11
bsrc/Data/Bool.bs
Normal file
11
bsrc/Data/Bool.bs
Normal file
@@ -0,0 +1,11 @@
|
||||
module Data.Bool
|
||||
|
||||
datatype Bool = True | False;
|
||||
|
||||
export (&)(x :: Bool, y :: Bool) :: Bool = prim%and;
|
||||
export (|)(x :: Bool, y :: Bool) :: Bool = prim%or;
|
||||
export (^)(x :: Bool, y :: Bool) :: Bool = prim%xor;
|
||||
export (not)(x :: Bool) :: Bool = prim%not;
|
||||
export otherwise :: Bool = True;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user