We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
2 parents 1152224 + 75da016 commit fbf4500Copy full SHA for fbf4500
src/Data/String.purs
@@ -28,8 +28,7 @@ module Data.String
28
foreign import _charAt
29
"""
30
function _charAt(i, s, Just, Nothing) {
31
- if (i < 0 || i >= s.length) return Nothing;
32
- else return Just(s.charAt(i));
+ return i >= 0 && i < s.length ? Just(s.charAt(i)) : Nothing;
33
}
34
""" :: forall a. Fn4 Number String (a -> Maybe a) (Maybe a) (Maybe Char)
35
@@ -42,8 +41,7 @@ module Data.String
42
41
foreign import _charCodeAt
43
44
function _charCodeAt(i, s, Just, Nothing) {
45
46
- else return Just(s.charCodeAt(i));
+ return i >= 0 && i < s.length ? Just(s.charCodeAt(i)) : Nothing;
47
48
""" :: forall a. Fn4 Number String (a -> Maybe a) (Maybe a) (Maybe Number)
49
0 commit comments