@@ -54,14 +54,19 @@ foreign import replace
5454 \ };\
5555 \}" :: String -> String -> String -> String
5656
57- foreign import slice
58- " function slice(st) {\
59- \ return function(e) {\
60- \ return function(s) {\
61- \ return s.slice(st, e);\
62- \ };\
57+ foreign import take
58+ " function take(n) {\
59+ \ return function(s) {\
60+ \ return s.substr(0, n);\
6361 \ };\
64- \}" :: Number -> Number -> String -> String
62+ \}" :: Number -> String -> String
63+
64+ foreign import drop
65+ " function drop(n) {\
66+ \ return function(s) {\
67+ \ return s.substr(n);\
68+ \ };\
69+ \}" :: Number -> String -> String
6570
6671foreign import split
6772 " function split(sep) {\
@@ -70,24 +75,6 @@ foreign import split
7075 \ };\
7176 \}" :: String -> String -> [String ]
7277
73- foreign import substr
74- " function substr(n1) {\
75- \ return function(n2) {\
76- \ return function(s) {\
77- \ return s.substr(n1, n2);\
78- \ };\
79- \ };\
80- \}" :: Number -> Number -> String -> String
81-
82- foreign import substring
83- " function substring(n1) {\
84- \ return function(n2) {\
85- \ return function(s) {\
86- \ return s.substring(n1, n2);\
87- \ };\
88- \ };\
89- \}" :: Number -> Number -> String -> String
90-
9178foreign import toLower
9279 " function toLower(s) {\
9380 \ return s.toLowerCase();\
0 commit comments