Idris2/tests/idris2/error004/Error1.idr
Edwin Brady a972778eab Add test script
They don't all pass yet, for minor reasons. Coming shortly...
Unfortunately the startup overhead for chez is really noticeable here!
2020-05-19 18:25:18 +01:00

9 lines
174 B
Idris

import Data.List
data Vect : Nat -> Type -> Type where
Nil : Vect Z a
(::) : a -> Vect k a -> Vect (S k) a
wrong : String
wrong = show (the (Vect _ _) [1,2,3,4])