Idris2/tests/idris2/interactive/interactive035/unify.idr

import Data.Vect

data VectN : Type -> Type where
     MkVectN : (n : Nat) -> Vect n a -> VectN a

doSearch : Nat -> VectN Int
doSearch n = MkVectN ?vlength [1,2,3,4]
Fix expression search on already solved holes If it's solved by unification, expression search should just print the unified value. In fact it almost did this, but wasn't reducing the holes so the result was being rendered incorrectly. 2021-06-23 02:59:26 +03:00			`import Data.Vect`

			`data VectN : Type -> Type where`
			`MkVectN : (n : Nat) -> Vect n a -> VectN a`

			`doSearch : Nat -> VectN Int`
			`doSearch n = MkVectN ?vlength [1,2,3,4]`