dunham/newt
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

Remove erased function arguments

Browse Source
This commit is contained in:
Steve Dunham
2025-10-23 22:29:04 -07:00
parent e9a02d30a5
commit 11ffd96a91
15 changed files with 791 additions and 760 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/Data/IORef.newt
View File

@@ -5,11 +5,11 @@ import Prelude
-- We should test this at some point
ptype IORef : U → U
pfunc primNewIORef uses (MkIORes) : ∀ a. a → IO (IORef a) := `(_, a) => (w) => Prelude_MkIORes(null, [a], w)`
pfunc primReadIORef uses (MkIORes) : ∀ a. IORef a → IO a := `(_, ref) => (w) => Prelude_MkIORes(null, ref[0], w)`
pfunc primNewIORef uses (MkIORes) : ∀ a. a → IO (IORef a) := `(_, a) => (w) => Prelude_MkIORes([a], w)`
pfunc primReadIORef uses (MkIORes) : ∀ a. IORef a → IO a := `(_, ref) => (w) => Prelude_MkIORes(ref[0], w)`
pfunc primWriteIORef uses (MkIORes MkUnit) : ∀ a. IORef a → a → IO Unit := `(_, ref, a) => (w) => {
ref[0] = a
return Prelude_MkIORes(null,Prelude_MkUnit,w)
return Prelude_MkIORes(Prelude_MkUnit,w)
}`
newIORef : ∀ io a. {{HasIO io}} → a → io (IORef a)