Idris2/tests/idris2/error004/Error1.idr

9 lines
174 B
Idris
Raw Normal View History

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])