git.iko.soy/rowtype-yoga/purescript-native
on golang help sign in
Remove multi arg functions from Prelude
063ef3cPhil Freeman
libraries/prelude/prelude.purs+81−21
compare with golang
unifiedsplit
@@ -407,28 +407,76 @@ module Global where
407
407
408module Math where
408module Math where
409
409
410− type Math =
410+ foreign import abs "function abs(n){\
411+ \ return Math.abs(n);\
411− { abs :: Number -> Number
412+ \}" :: Number -> Number
413+
414+ foreign import acos "function acos(n){\
415+ \ return Math.acos(n);\
412− , acos :: Number -> Number
416+ \}" :: Number -> Number
417+
418+ foreign import asin "function asin(n){\
419+ \ return Math.asin(n);\
413− , asin :: Number -> Number
420+ \}" :: Number -> Number
421+
422+ foreign import atan "function atan(n){\
423+ \ return Math.atan(n);\
414− , atan :: Number -> Number
424+ \}" :: Number -> Number
425+
426+ foreign import atan2 "function atan2(y){\
427+ \ return function (x) {\
428+ \ return Math.atan2(y, x);\
429+ \ };\
430+ \}" :: Number -> Number -> Number
431+
432+ foreign import aceil "function aceil(n){\
433+ \ return Math.aceil(n);\
434+ \}" :: Number -> Number
435+
436+ foreign import cos "function cos(n){\
437+ \ return Math.cos(n);\
415− --, atan2 :: (Number, Number) -> Number
438+ \}" :: Number -> Number
439+
440+ foreign import exp "function exp(n){\
441+ \ return Math.exp(n);\
442+ \}" :: Number -> Number
443+
444+ foreign import floor "function floor(n){\
445+ \ return Math.floor(n);\
446+ \}" :: Number -> Number
447+
448+ foreign import log "function log(n){\
449+ \ return Math.log(n);\
450+ \}" :: Number -> Number
451+
452+ foreign import max "function max(n){\
453+ \ return Math.max(n);\
416− , aceil :: Number -> Number
454+ \}" :: Number -> Number
417− , cos :: Number -> Number
455+
456+ foreign import min "function min(n){\
457+ \ return Math.min(n);\
418− , exp :: Number -> Number
458+ \}" :: Number -> Number
419− , floor :: Number -> Number
459+
460+ foreign import pow "function pow(n){\
461+ \ return Math.pow(n);\
420− , log :: Number -> Number
462+ \}" :: Number -> Number
421− --, max :: (Number, Number) -> Number
463+
464+ foreign import round "function round(n){\
465+ \ return Math.round(n);\
422− --, pow :: (Number, Number) -> Number
466+ \}" :: Number -> Number
423− --, random :: () -> Number
467+
468+ foreign import sin "function sin(n){\
469+ \ return Math.sin(n);\
424− , round :: Number -> Number
470+ \}" :: Number -> Number
425− , sin :: Number -> Number
471+
472+ foreign import sqrt "function sqrt(n){\
473+ \ return Math.sqrt(n);\
426− , sqrt :: Number -> Number
474+ \}" :: Number -> Number
475+
476+ foreign import tan "function tan(n){\
477+ \ return Math.tan(n);\
427− , tan :: Number -> Number
478+ \}" :: Number -> Number
428− }
429
479
430− foreign import math "var math = Math;" :: Math
431−
432module Eff where
480module Eff where
433
481
434 foreign import data Eff :: # ! -> * -> *
482 foreign import data Eff :: # ! -> * -> *
@@ -457,6 +505,18 @@ module Eff where
457 ret = retEff
505 ret = retEff
458 (>>=) = bindEff
506 (>>=) = bindEff
459
507
508+module Random where
509+
510+ import Eff
511+
512+ foreign import data Random :: !
513+
514+ foreign import random "function random() {\
515+ \ return function() {\
516+ \ return Math.random();\
517+ \ };\
518+ \}" :: forall e. Eff (random :: Random | e) Number
519+
460module Errors where
520module Errors where
461
521
462 import Eff
522 import Eff
libraries/prelude/tests/Eff.purs+2−2
@@ -37,7 +37,7 @@ test6 s = do
37
37
38import ST
38import ST
39
39
40−test7 = \ -> do
40+test7 _ = do
41 n <- runST $ do
41 n <- runST $ do
42 r <- newSTRef 0
42 r <- newSTRef 0
43 modifySTRef r $ \n -> n + 1
43 modifySTRef r $ \n -> n + 1
@@ -48,4 +48,4 @@ module Main where
48
48
49import Tests
49import Tests
50
50
51−main = test7 ()
51+main = test7 {}