@@ -32,23 +32,23 @@ let flat = opt =>
32
32
33
33
let filterU = (opt , p ) =>
34
34
switch opt {
35
- | Some (x ) as some if p (. x ) => some
35
+ | Some (value ) as some if p (. value ) => some
36
36
| _ => None
37
37
}
38
38
39
- let filter = (opt , p ) => filterU (opt , (. x ) => p (x ))
39
+ let filter = (opt , p ) => filterU (opt , (. value ) => p (value ))
40
40
41
41
let forEachU = (opt , f ) =>
42
42
switch opt {
43
- | Some (x ) => f (. x )
43
+ | Some (value ) => f (. value )
44
44
| None => ()
45
45
}
46
46
47
- let forEach = (opt , f ) => forEachU (opt , (. x ) => f (x ))
47
+ let forEach = (opt , f ) => forEachU (opt , (. value ) => f (value ))
48
48
49
- let getExn = x =>
50
- switch x {
51
- | Some (x ) => x
49
+ let getExn = opt =>
50
+ switch opt {
51
+ | Some (value ) => value
52
52
| None => raise (Not_found )
53
53
}
54
54
@@ -62,31 +62,31 @@ external getUnsafe: option<'a> => 'a = "%identity"
62
62
63
63
let mapWithDefaultU = (opt , default , f ) =>
64
64
switch opt {
65
- | Some (x ) => f (. x )
65
+ | Some (value ) => f (. value )
66
66
| None => default
67
67
}
68
68
69
- let mapWithDefault = (opt , default , f ) => mapWithDefaultU (opt , default , (. x ) => f (x ))
69
+ let mapWithDefault = (opt , default , f ) => mapWithDefaultU (opt , default , (. value ) => f (value ))
70
70
71
71
let mapU = (opt , f ) =>
72
72
switch opt {
73
- | Some (x ) => Some (f (. x ))
73
+ | Some (value ) => Some (f (. value ))
74
74
| None => None
75
75
}
76
76
77
- let map = (opt , f ) => mapU (opt , (. x ) => f (x ))
77
+ let map = (opt , f ) => mapU (opt , (. value ) => f (value ))
78
78
79
79
let flatMapU = (opt , f ) =>
80
80
switch opt {
81
- | Some (x ) => f (. x )
81
+ | Some (value ) => f (. value )
82
82
| None => None
83
83
}
84
84
85
- let flatMap = (opt , f ) => flatMapU (opt , (. x ) => f (x ))
85
+ let flatMap = (opt , f ) => flatMapU (opt , (. value ) => f (value ))
86
86
87
87
let getWithDefault = (opt , default ) =>
88
88
switch opt {
89
- | Some (x ) => x
89
+ | Some (value ) => value
90
90
| None => default
91
91
}
92
92
@@ -96,13 +96,13 @@ let orElse = (opt, other) =>
96
96
| None => other
97
97
}
98
98
99
- let isSome = x =>
100
- switch x {
99
+ let isSome = opt =>
100
+ switch opt {
101
101
| Some (_ ) => true
102
102
| None => false
103
103
}
104
104
105
- let isNone = x => x == None
105
+ let isNone = value => value == None
106
106
107
107
let eqU = (a , b , f ) =>
108
108
switch a {
0 commit comments