Fix build!

This commit is contained in:
Edwin Brady 2020-01-11 23:08:30 +00:00
parent 4ce469cc03
commit 62a86db1d5

View File

@ -42,7 +42,7 @@ checkHole rig elabinfo nest env fc n_in (Just gexpty)
addUserHole nm
pure (metaval, gexpty)
checkHole rig elabinfo nest env fc n_in exp
= do nmty <- genName ("type_of_" ++ nameRoot n_in)
= do nmty <- genName ("type_of_" ++ n_in)
let env' = letToLam env
ty <- metaVar fc Rig0 env' nmty (TType fc)
nm <- inCurrentNS (UN n_in)