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