Verified Commit 13320e9b authored by Camil Staps's avatar Camil Staps
Browse files

Fix error message

parent 85237f51
......@@ -476,7 +476,7 @@ where
# (mod_id, ht) = putIdentInHashTable path (IC_Module NoQualifiedIdents) ht
# ((b1,b2,pm,ht,f),w) = accFiles (wantModule` f "" icl mod_id.boxed_ident NoPos True ht stderr) w
# (ok,w) = fclose f w
| not ok = (Left $ "Couldn't open " +++ filename, abort "no symboltable\n", w)
| not ok = (Left $ "Couldn't close " +++ filename, abort "no symboltable\n", w)
= (Right pm, ht.hte_symbol_heap, w)
where
wantModule` :: !*File !{#Char} !Bool !Ident !Position !Bool !*HashTable !*File !*Files
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment