Address issues with unify's case tree in idris

Clean up some stuff in prelude
Add parser for where
This commit is contained in:
2024-11-19 20:50:52 -08:00
parent 9b19c569c9
commit c665310653
10 changed files with 81 additions and 58 deletions

View File

@@ -50,7 +50,6 @@ findMatches ctx ty ((MkEntry name type def) :: xs) = do
debug "No match \{show ty} \{pprint [] type} \{showError "" err}"
writeIORef top.metas mc
findMatches ctx ty xs)
findMatches ctx ty (y :: xs) = findMatches ctx ty xs
contextMatches : Context -> Val -> M (List (Tm, MetaContext))
contextMatches ctx ty = go (zip ctx.env (toList ctx.types))