32 lines
666 B
Rust
32 lines
666 B
Rust
use bad_optics::{
|
|
lenses::{_0, _1},
|
|
*,
|
|
};
|
|
|
|
fn main() {
|
|
let a = ((1, 2), 3);
|
|
|
|
// combine lenses
|
|
let lens = _0 + _1;
|
|
|
|
// use the view function to access
|
|
let res = view(lens, a);
|
|
assert_eq!(res, 2);
|
|
|
|
// call the lens as a function
|
|
let res = lens(a);
|
|
assert_eq!(res, 2);
|
|
|
|
// call the over function to modify the value
|
|
let a = over(lens, a, |v| v + 1);
|
|
assert_eq!(a, ((1, 3), 3));
|
|
|
|
// call the set function to set the value
|
|
let a = set(lens, a, 5);
|
|
assert_eq!(a, ((1, 5), 3));
|
|
|
|
// call the lens as a function to modify the value
|
|
let res = lens(a, |v| v + 1);
|
|
assert_eq!(res, ((1, 3), 3));
|
|
}
|