changes to support translation

2024-12-30 22:34:03 -08:00
parent 8c7f0616d2
commit f4e96d06ec
10 changed files with 126 additions and 107 deletions
--- a/src/Lib/Parser/Impl.idr
+++ b/src/Lib/Parser/Impl.idr
@@ -190,8 +190,8 @@ indented (P p) = P $ \toks,com,ops,indent => case toks of
  [] => p toks com ops indent
  (t::_) =>
    let (tl,tc) = start t
-    in if tc > indent.col || tl == indent.line then p toks com ops indent
-    else Fail False (error indent.file toks "unexpected outdent") toks com ops
+    in if tc > fcCol indent || tl == fcLine indent then p toks com ops indent
+    else Fail False (error (file indent) toks "unexpected outdent") toks com ops

 ||| expect token of given kind
 export