blob: 4aad09d64ec4b9789dfca32edf9ba605cd96a494 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
foreign import javascript "(($1) => { return $1; })"
bool_id :: Bool -> Bool
foreign import javascript "(($1) => { return !$1; })"
bool_not :: Bool -> Bool
foreign import javascript "(($1) => { console.log($1); })"
bool_log :: Bool -> IO ()
main :: IO ()
main = do
bool_log True
bool_log False
bool_log (bool_id True)
bool_log (bool_id False)
bool_log (bool_not True)
bool_log (bool_not False)
print (bool_id True)
print (bool_id False)
print (bool_not True)
print (bool_not False)
|