mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-19 09:12:34 +03:00
15 lines
249 B
Idris
15 lines
249 B
Idris
|
%default total
|
||
|
|
|
||
|
|
data Command : Type -> Type where
|
||
|
|
Empty : Command ()
|
||
|
|
Pure : t -> Command t
|
||
|
|
|
||
|
|
test : Command (List a) -> ()
|
||
|
|
test (Pure x) = ()
|
||
|
|
|
||
|
|
test2 : Command (a -> b) -> ()
|
||
|
|
test2 (Pure x) = ()
|
||
|
|
|
||
|
|
test3 : Command Type -> ()
|
||
|
|
test3 (Pure x) = ()
|