metatrait 0.0.0-alpha.1

RPITIT Monads
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

use super::base::BaseInstance;

pub type Options = BaseInstance<crate::base::instances::option::Options>;

#[cfg(test)]
mod test {
    use crate::{
        cat::functor::*,
        traits::{base::BaseExt, is::IsExt},
    };

    use super::*;

    #[test]
    fn test() {
        let x = Options::pure(0);
        let x = Options::map(x, |x| x + 1);
        let x = Options::map(x, |x| x + 1);
        let x = Options::map(x, |x| x + 1);
        let x = Options::map(x, |x| x + 1);
        let x = Options::map(x, |x| x + 1);
        let x = x.into_base();
        let x = x.unwrap();
        let x = x.into_that();
        assert_eq!(x, 5);
    }
}