Kind2/base/BitsMap/get.kind
Rígille Scherrer Borges Menezes b01874a713 erase types
this commit was done using @elmattic's script
https://gist.github.com/elmattic/e3817b670a53bea45e846312809319cf
2021-04-19 14:28:03 -03:00

16 lines
335 B
Plaintext

BitsMap.get<A: Type>(bits: Bits, map: BitsMap<A>): Maybe<A>
case bits {
e: case map {
new: Maybe.none!,
tie: map.val,
},
o: case map {
new: Maybe.none!,
tie: BitsMap.get!(bits.pred, map.lft),
},
i: case map {
new: Maybe.none!,
tie: BitsMap.get!(bits.pred, map.rgt),
}
}