diff options
| author | Camil Staps | 2023-02-28 20:49:17 +0100 |
|---|---|---|
| committer | Camil Staps | 2023-02-28 20:49:17 +0100 |
| commit | 63d6d6072e95b98f1db963a27e361bb3dafe37b4 (patch) | |
| tree | 5fc189d554c2e148f2f532e99525bb47b29117cd /snug-clean/src/snug.icl | |
| parent | Pass errors using MonadFail, avoid aborts (diff) | |
Remove aborts in Snug.Compile, use MonadFail instead
Diffstat (limited to 'snug-clean/src/snug.icl')
| -rw-r--r-- | snug-clean/src/snug.icl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/snug-clean/src/snug.icl b/snug-clean/src/snug.icl index 23d24d0..45b39a1 100644 --- a/snug-clean/src/snug.icl +++ b/snug-clean/src/snug.icl @@ -31,7 +31,9 @@ Start w # mbDefs = parseSnug input defs = fromOk mbDefs | isError mbDefs = abort ("Failed to parse: " +++ fromError mbDefs +++ "\n") - # assembly = compile "main" defs + # mbAssembly = compile "main" defs + assembly = fromOk mbAssembly + | isError mbAssembly = abort ("Failed to compile: " +++ fromError mbAssembly +++ "\n") # assembly = join "\n" (map toString assembly) # (mbErr,w) = writeFile output assembly w | isError mbErr = abort ("Failed to write output: " +++ toString (fromError mbErr) +++ "\n") |