git.iko.soy/rowtype-yoga/purescript-native
on golang help sign in
Fix some prelude issues
8443966Phil Freeman
libraries/prelude/Makefile+1−1
compare with golang
unifiedsplit
@@ -1,3 +1,3 @@
1all:
1all:
2− cat prelude.js > all.js
3 ../../dist/build/psc/psc prelude.ps -o all.js
2 ../../dist/build/psc/psc prelude.ps -o all.js
3+ cat prelude.js >> all.js
libraries/prelude/prelude.ps+4−4
@@ -4,8 +4,8 @@ id = \x -> x
4flip :: forall a b c. (a -> b -> c) -> b -> a -> c
4flip :: forall a b c. (a -> b -> c) -> b -> a -> c
5flip = \f -> \b -> \a -> f a b
5flip = \f -> \b -> \a -> f a b
6
6
7−const :: forall a b. a -> b -> a
7+konst :: forall a b. a -> b -> a
8−const = \a -> \b -> a
8+konst = \a -> \b -> a
9
9
10(|>) :: forall a b c. (a -> b) -> (b -> c) -> a -> c
10(|>) :: forall a b c. (a -> b) -> (b -> c) -> a -> c
11(|>) = \f -> \g -> \a -> g (f a)
11(|>) = \f -> \g -> \a -> g (f a)
@@ -110,8 +110,8 @@ concatMap = \as -> \f -> do
110
110
111extern filter :: forall a. [a] -> (a -> Boolean) -> [a]
111extern filter :: forall a. [a] -> (a -> Boolean) -> [a]
112
112
113−null :: forall a. [a] -> Boolean
113+empty :: forall a. [a] -> Boolean
114−null = \as -> case as of
114+empty = \as -> case as of
115 [] -> true
115 [] -> true
116 _ -> false
116 _ -> false
117
117