two more fixes from recent namespace change.

This commit is contained in:
2025-02-01 20:02:50 -08:00
parent b6ce6cfb13
commit c83632881d
2 changed files with 2 additions and 2 deletions

View File

@@ -4,4 +4,4 @@ import Prelude
pfunc fs : JSObject := `require('fs')`
pfunc getArgs : List String := `arrayToList(String, process.argv)`
pfunc readFile uses (fs MkIORes Unit) : (fn : String) -> IO String := `(fn) => (w) => MkIORes(Unit, fs.readFileSync(fn, 'utf8'), w)`
pfunc readFile uses (MkIORes) : (fn : String) -> IO String := `(fn) => (w) => Prelude_MkIORes(null, require('fs').readFileSync(fn, 'utf8'), w)`

View File

@@ -11,7 +11,7 @@ pfunc _%_ : Int → Int → Int := `(x,y) => x % y`
-- should have a few more foreign functions and do this in newt
pfunc divide uses (_,_) : String String × String := `(s) => {
let l = s.length/2|0
return _$2C_(undefined, undefined, s.slice(0,l), s.slice(l))
return Prelude__$2C_(undefined, undefined, s.slice(0,l), s.slice(l))
}`
step : List (Int × Int) List (Int × Int)