Preliminary work on autos

2024-10-25 21:07:12 -07:00
parent ec1f58a071
commit e1ef6b5ee5
9 changed files with 107 additions and 45 deletions
--- a/src/Lib/CompileExp.idr
+++ b/src/Lib/CompileExp.idr
@@ -93,7 +93,7 @@ compileTerm tm@(App _ _ _) with (funArgs tm)
        -- apply (CRef "Meta\{show k}") args' [<] 0
        arity <- case meta of
                -- maybe throw
-                (Unsolved x j ctx _) => pure 0 -- FIXME # of Bound in ctx.bds
+                (Unsolved x j ctx _ _) => pure 0 -- FIXME # of Bound in ctx.bds
                (Solved j tm) => pure $ getArity !(quote 0 tm)
        apply (CRef "Meta\{show k}") args' [<] arity
  _ | (t@(Ref fc nm _), args) = do