import action for out of scope names, start introducing error types
Some checks failed
Publish Playground / build (push) Has been cancelled
Publish Playground / deploy (push) Has been cancelled

This commit is contained in:
2026-02-24 09:33:53 -08:00
parent 134c9f11db
commit ccdb15c6ec
5 changed files with 59 additions and 46 deletions

View File

@@ -570,13 +570,6 @@ debugM x = logM 2 x
instance Show Context where
show ctx = "Context \{show $ map fst $ ctx.types}"
errorMsg : Error -> String
errorMsg (E x str) = str
errorMsg (Postpone x k str) = str
instance HasFC Error where
getFC (E x str) = x
getFC (Postpone x k str) = x
error : ∀ a. FC -> String -> M a
error fc msg = throwError $ E fc msg