File tree 2 files changed +10
-8
lines changed 2 files changed +10
-8
lines changed Original file line number Diff line number Diff line change 31
31
32
32
charAt :: Number -> String -> Maybe Char
33
33
34
- charCodeAt :: Number -> String -> Number
34
+ charCodeAt :: Number -> String -> Maybe Number
35
35
36
36
drop :: Number -> String -> String
37
37
Original file line number Diff line number Diff line change @@ -37,12 +37,14 @@ module Data.String
37
37
fromChar :: Char -> String
38
38
fromChar = charString
39
39
40
- foreign import charCodeAt
41
- " function charCodeAt(i) {\
42
- \ return function(s) {\
43
- \ return s.charCodeAt(i); \
44
- \ };\
45
- \}" :: Number -> String -> Number
40
+ foreign import _charCodeAt
41
+ " function _charCodeAt(i, s, Just, Nothing) {\
42
+ \ if (i < 0 || i >= s.length) return Nothing;\
43
+ \ else return Just(s.charCodeAt(i));\
44
+ \}" :: forall a. Fn4 Number String (a -> Maybe a ) (Maybe a ) (Maybe Number )
45
+
46
+ charCodeAt :: Number -> String -> Maybe Number
47
+ charCodeAt n s = runFn4 _charCodeAt n s Just Nothing
46
48
47
49
foreign import fromCharArray
48
50
" function fromCharArray(a) {\
@@ -123,7 +125,7 @@ module Data.String
123
125
\ };\
124
126
\}" :: String -> String -> [String ]
125
127
126
- foreign import toCharArray
128
+ foreign import toCharArray
127
129
" function toCharArray(s) {\
128
130
\ return s.split('');\
129
131
\}" :: String -> [Char ]
You can’t perform that action at this time.
0 commit comments