git.iko.soy/rowtype-yoga/purescript-native
on golang help sign in
Some Prelude fixes
be4d1daPhil Freeman
prelude/prelude.purs+36−13
compare with golang
unifiedsplit
@@ -356,6 +356,7 @@ module Prelude where
356module Data.Monoid where
356module Data.Monoid where
357
357
358 import Prelude
358 import Prelude
359+ import Data.Array (foldl)
359
360
360 infixr 6 <>
361 infixr 6 <>
361
362
@@ -372,8 +373,7 @@ module Data.Monoid where
372 (<>) = Data.Array.concat
373 (<>) = Data.Array.concat
373
374
374 mconcat :: forall m. (Monoid m) => [m] -> m
375 mconcat :: forall m. (Monoid m) => [m] -> m
375− mconcat [] = mempty
376+ mconcat = foldl (<>) mempty
376− mconcat (m:ms) = m <> mconcat ms
377
377
378module Control.Monad where
378module Control.Monad where
379
379
@@ -503,9 +503,9 @@ module Data.Array where
503 foldr f a (b : bs) = f (foldr f a bs) b
503 foldr f a (b : bs) = f (foldr f a bs) b
504 foldr _ a [] = a
504 foldr _ a [] = a
505
505
506− foldl :: forall a b. (a -> b -> b) -> b -> [a] -> b
506+ foldl :: forall a b. (b -> a -> b) -> b -> [a] -> b
507 foldl _ b [] = b
507 foldl _ b [] = b
508− foldl f b (a:as) = foldl f (f a b) as
508+ foldl f b (a:as) = foldl f (f b a) as
509
509
510 foreign import length "function length(xs) {\
510 foreign import length "function length(xs) {\
511 \ return xs.length;\
511 \ return xs.length;\
@@ -573,15 +573,38 @@ module Data.Array where
573 \ return l1;\
573 \ return l1;\
574 \}" :: forall a. [a] -> [a]
574 \}" :: forall a. [a] -> [a]
575
575
576− foreign import splice "function splice(s) {\
576+ foreign import insertAt
577+ "function insertAt(index) {\
577− \ return function(e) {\
578+ \ return function(a) {\
578− \ return function(l1) {\
579+ \ return function(l) {\
580+ \ var l1 = l.slice();\
581+ \ l1.splice(index, 0, a);\
582+ \ return l1;\
583+ \ }; \
584+ \ };\
585+ \}":: forall a. Number -> a -> [a] -> [a]
586+
587+ foreign import deleteAt
588+ "function deleteAt(index) {\
579− \ return function(l2) {\
589+ \ return function(n) {\
580− \ return l2.splice(s, e, l1);\
590+ \ return function(l) {\
581− \ }; \
591+ \ var l1 = l.slice();\
592+ \ l1.splice(index, n);\
593+ \ return l1;\
582− \ }; \
594+ \ }; \
583− \ };\
595+ \ };\
584− \}":: forall a. Number -> Number -> [a] -> [a] -> [a]
596+ \}":: forall a. Number -> Number -> [a] -> [a]
597+
598+ foreign import updateAt
599+ "function updateAt(index) {\
600+ \ return function(a) {\
601+ \ return function(l) {\
602+ \ var l1 = l.slice();\
603+ \ l1[index] = a;\
604+ \ return l1;\
605+ \ }; \
606+ \ };\
607+ \}":: forall a. Number -> a -> [a] -> [a]
585
608
586 infixr 6 :
609 infixr 6 :
587
610