Idris2/tests/idris2/error/error004/Error1.idr
2023-09-07 14:57:22 +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])