mirror of
https://github.com/edwinb/Idris2-boot.git
synced 2024-11-24 04:43:25 +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
|