on master help sign in
Merge pull request #4519 from melted/fix_getDepsTerm

Fix getDepsTerm

commit2642556d3a72f8467ba96f3fa681521f8c9a700f authorNiklas Larsson <metaniklas@gmail.com> dateFri 20 Jul 2018, 18:21 (8 years ago) parentf16b5c02c90685
1 file changed+3
src/Idris/Erasure.hs+3
src/Idris/Erasure.hs+3
@@ -572,6 +572,9 @@ buildDepMap ci used externs ctx startNames
572572 getDepsTerm vs bs cd (Proj t (-1)) = getDepsTerm vs bs cd t -- naturals, (S n) -> n
573573 getDepsTerm vs bs cd (Proj t i) = error $ "cannot[1] analyse projection !" ++ show i ++ " of " ++ show t
574574
575+ -- inferred term
576+ getDepsTerm vs bs cd (Inferred t) = getDepsTerm vs bs cd t
577+
575578 -- the easy cases
576579 getDepsTerm vs bs cd (Constant _) = M.empty
577580 getDepsTerm vs bs cd (TType _) = M.empty