mirror of
https://github.com/Kindelia/Kind2.git
synced 2024-10-26 16:20:40 +03:00
b01874a713
this commit was done using @elmattic's script https://gist.github.com/elmattic/e3817b670a53bea45e846312809319cf
12 lines
357 B
Plaintext
12 lines
357 B
Plaintext
BitsMap.map<A: Type, B: Type>(fn: A -> B, map: BitsMap<A>): BitsMap<B>
|
|
case map {
|
|
new: BitsMap.new!,
|
|
tie:
|
|
let val = case map.val {
|
|
none: Maybe.none!,
|
|
some: Maybe.some!(fn(map.val.value))
|
|
}
|
|
let lft = BitsMap.map<A,B>(fn, map.lft)
|
|
let rgt = BitsMap.map<A,B>(fn, map.rgt)
|
|
BitsMap.tie!(val, lft, rgt)
|
|
} |