mirror of
https://github.com/edwinb/Idris2-boot.git
synced 2024-11-27 10:41:08 +03:00
12 lines
186 B
Idris
12 lines
186 B
Idris
|
module Void
|
||
|
|
|
||
|
|
-- making use of 'hd' being partially defined
|
||
|
|
empty1 : Void
|
||
|
|
empty1 = hd [] where
|
||
|
|
hd : List a -> a
|
||
|
|
hd (x :: xs) = x
|
||
|
|
|
||
|
|
-- not terminating
|
||
|
|
empty2 : Void
|
||
|
|
empty2 = empty2
|