mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-21 02:31:50 +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
|