aoc2023 day2, codegen fixes, parsing fix

2024-10-23 20:29:52 -07:00
parent 0843ae93e1
commit 8c8cdf4f7f
8 changed files with 147 additions and 5 deletions
--- a/src/Main.idr
+++ b/src/Main.idr
@@ -80,8 +80,9 @@ processModule base stk name = do
  top <- get
  let Right (decls, ops, toks) := partialParse (manySame parseDecl) top.ops toks
    | Left err => fail (showError src err)
-  let [] := toks | (x :: xs) => fail "extra toks" -- FIXME FC from xs
-
+  let [] := toks
+    | (x :: xs) =>
+        fail (showError src (E (startBounds x.bounds) "extra toks")) -- FIXME FC from xs
  modify { ops := ops }

  putStrLn "process Decls"