dunham/newt
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

Improvements to grammar

Browse Source
This commit is contained in:
Steve Dunham
2024-11-09 21:39:45 -08:00
parent bb749a917a
commit 6abd97ee85
9 changed files with 80 additions and 80 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/Main.idr
View File

@@ -63,13 +63,13 @@ processModule base stk name = do
let Right toks = tokenise src
| Left err => fail (showError src err)
let Right (modName, ops, toks) := partialParse parseModHeader top.ops toks
let Right ((nameFC, modName), ops, toks) := partialParse parseModHeader top.ops toks
| Left err => fail (showError src err)
putStrLn "module \{modName}"
let True = name == modName
| _ => fail "ERROR at (0, 0): module name \{show modName} doesn't match file name \{show fn}"
| _ => fail "ERROR at \{show nameFC}: module name \{show modName} doesn't match file name \{show fn}"
let Right (imports, ops, toks) := partialParse parseImports ops toks
| Left err => fail (showError src err)