Delete the unused cvt function

This commit is contained in:
Robert Dockins 2016-06-13 16:02:27 -07:00
parent 98a9e16944
commit 3f934ae27f

View File

@ -130,11 +130,3 @@ evalTF f vs
where mb = fromMaybe (typeCannotBeDemoted ty)
ty = TCon (TF f) (map tNat' vs)
--cvt :: Nat' -> Type
--cvt (Nat n) = tNum n
--cvt Inf = tInf