10 lines
224 B
Text
10 lines
224 B
Text
λ(nix : ../NixPrelude.dhall) →
|
|
λ(a : Type) →
|
|
λ(b : Type) →
|
|
λ(f : a → Optional b) →
|
|
λ(o : Optional a) →
|
|
let map = ./map.dhall nix
|
|
|
|
let concat = ./concat.dhall nix
|
|
|
|
in concat b (map a (Optional b) f o)
|