mirror of
https://github.com/edwinb/Idris2-boot.git
synced 2024-12-19 10:51:35 +03:00
We can't begin a search until we know what we're searching for! For some reason I forgot to add this case, and without it the search space can explode, or we might find an answer too soon and commit to the wrong thing! Fixes #36
18 lines
468 B
Idris
18 lines
468 B
Idris
data ErlList : List Type -> Type where
|
|
Nil : ErlList []
|
|
(::) : x -> ErlList xs -> ErlList (x :: xs)
|
|
|
|
data ErlType : Type -> Type where
|
|
ETInteger : ErlType Integer
|
|
ETString : ErlType String
|
|
|
|
data ErlTypes : List Type -> Type where
|
|
ETErlTypesNil : ErlTypes []
|
|
ETErlTypesCons : (ErlType x, ErlTypes xs) => ErlTypes (x :: xs)
|
|
|
|
erlCall : ErlList xs -> {auto prf : ErlTypes xs} -> ()
|
|
erlCall args = ()
|
|
|
|
foo : ()
|
|
foo = erlCall [1,2,3, "foo", "bar", "baz", 4,5,6]
|