Fix unification issues, add debug messages

This commit is contained in:
2024-10-02 19:51:19 -07:00
parent 151f678f75
commit 497ef7a9f0
8 changed files with 52 additions and 35 deletions

View File

@@ -71,7 +71,7 @@ loadModule base stk name = do
(src, res) <- parseFile fn
putStrLn "module \{res.name}"
let True = name == res.name
| _ => fail "module name \{show res.name} doesn't match file name \{show fn}"
| _ => fail "ERROR at (0, 0): module name \{show res.name} doesn't match file name \{show fn}"
-- TODO separate imports and detect loops / redundant
for_ res.imports $ \ (MkImport fc name') => do
-- we could use `fc` if it had a filename in it