@@ -54,14 +54,19 @@ foreign import replace
54
54
\ };\
55
55
\}" :: String -> String -> String -> String
56
56
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);\
63
61
\ };\
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
65
70
66
71
foreign import split
67
72
" function split(sep) {\
@@ -70,24 +75,6 @@ foreign import split
70
75
\ };\
71
76
\}" :: String -> String -> [String ]
72
77
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
-
91
78
foreign import toLower
92
79
" function toLower(s) {\
93
80
\ return s.toLowerCase();\
0 commit comments