4e788e1 · rowtype-yoga/purescript-native

66

67 foreign import cons

68 "function cons(e) {\

69− \ return function (l) {\

69+ \ return function(l) {\

70 \ return [e].concat(l);\

71 \ };\

72 \}" :: forall a. a -> [a] -> [a]

97 show = showNumberImpl

98

99 foreign import showArrayImpl

100− "function showArrayImpl (f) {\

100+ "function showArrayImpl(f) {\

101− \ return function (xs) {\

101+ \ return function(xs) {\

102 \ var ss = [];\

103 \ for (var i = 0, l = xs.length; i < l; i++) {\

104 \ ss[i] = f(xs[i]);\

327

328 foreign import unsafeCompareImpl

329 "function unsafeCompareImpl(lt) {\

330− \ return function (eq) {\

330+ \ return function(eq) {\

331− \ return function (gt) {\

331+ \ return function(gt) {\

332− \ return function (x) {\

332+ \ return function(x) {\

333− \ return function (y) {\

333+ \ return function(y) {\

334 \ return x < y ? lt : x > y ? gt : eq;\

335 \ };\

336 \ };\

803

804 foreign import untilE "function untilE(f) {\

805 \ return function() {\

806− \ while (!f()) { }\

806+ \ while (!f());\

807 \ return {};\

808 \ };\

809 \}" :: forall e. Eff e Boolean -> Eff e Unit

878 foreign import data STArray :: * -> * -> *

879

880 foreign import newSTRef "function newSTRef(val) {\

881− \ return function () {\

881+ \ return function() {\

882 \ return { value: val };\

883 \ };\

884 \}" :: forall a h r. a -> Eff (st :: ST h | r) (STRef h a)