File: Bool.hs

package info (click to toggle)
bali-phy 4.0-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 15,392 kB
  • sloc: cpp: 120,442; xml: 13,966; haskell: 9,975; python: 2,936; yacc: 1,328; perl: 1,169; lex: 912; sh: 343; makefile: 26
file content (19 lines) | stat: -rw-r--r-- 274 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
{-# LANGUAGE NoImplicitPrelude #-}
module Data.Bool where

data Bool = True | False

infixr 3 &&
False && _  = False
_     && x  = x

infixr 2 ||
True  || _  = True
_     || x  = x

not True    =  False
not _       =  True

otherwise = True

bool x y p = if p then x else y