9 lines
233 B
Text
9 lines
233 B
Text
|
λ(nix : ../NixPrelude.dhall) →
|
||
|
|
λ(a : Type) →
|
||
|
|
λ(x : Optional (Optional a)) →
|
||
|
|
let identity = ../Function/identity.dhall
|
||
|
|
|
||
|
|
let fold = ./fold.dhall nix
|
||
|
|
|
||
|
|
in fold (Optional a) x (Optional a) (identity (Optional a)) (None a)
|