15 lines
419 B
Text
15 lines
419 B
Text
|
--| Create a `NonEmpty` list with just one element
|
||
|
|
let NonEmpty =
|
||
|
|
missing
|
||
|
|
sha256:e2e247455a858317e470e0e4affca8ac07f9f130570ece9cb7ac1f4ea3deb87f
|
||
|
|
? ./Type.dhall
|
||
|
|
|
||
|
|
let singleton
|
||
|
|
: ∀(a : Type) → a → NonEmpty a
|
||
|
|
= λ(a : Type) → λ(x : a) → { head = x, tail = [] : List a }
|
||
|
|
|
||
|
|
let example =
|
||
|
|
assert : singleton Natural 2 ≡ { head = 2, tail = [] : List Natural }
|
||
|
|
|
||
|
|
in singleton
|