Verified Commit 13aa5cbb authored by Camil Staps's avatar Camil Staps 🚀

Update Clean.Parse to new compiler

parent a1b484df
Pipeline #44263 passed with stage
in 2 minutes and 17 seconds
......@@ -26,15 +26,15 @@ readModule filename w
# (ok,f,w) = fopen filename FReadText w
| not ok = (Error ("Couldn't open " +++ filename), w)
# (mod_id, ht) = putIdentInHashTable modname (IC_Module NoQualifiedIdents) ht
# ((b1,b2,pm,ht,f),w) = accFiles (wantModule` f "" icl mod_id.boxed_ident NoPos True ht stderr) w
# ((b1,b2,pm,ht,f),w) = accFiles (wantModule` f "" icl mod_id.boxed_ident NoPos ht stderr) w
# (ok,w) = fclose f w
| not ok = (Error ("Couldn't close " +++ filename), w)
= (Ok (pm, ht), w)
where
icl = endsWith "icl" filename
wantModule` :: !*File !{#Char} !Bool !Ident !Position !Bool !*HashTable !*File !*Files
wantModule` :: !*File !{#Char} !Bool !Ident !Position !*HashTable !*File !*Files
-> ((!Bool,!Bool,!ParsedModule, !*HashTable, !*File), !*Files)
wantModule` f s b1 i p b2 ht io fs
# (b1,b2,pm,ht,f,fs) = wantModule f s b1 i p b2 ht io fs
wantModule` f s b1 i p ht io fs
# (b1,b2,pm,ht,f,fs) = wantModule f s b1 i p ht io fs
= ((b1,b2,pm,ht,f),fs)
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