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

port compiles hello world

Browse Source
This commit is contained in:
Steve Dunham
2025-01-04 21:07:25 -08:00
parent 6b1eef86a7
commit 0dbc5d5ee7
7 changed files with 26 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
done/Data/IORef.newt
View File

@@ -7,7 +7,7 @@ import Prelude
ptype IORef : U → U
pfunc primNewIORef uses (MkIORes MkUnit) : ∀ a. a → IO (IORef a) := `(_, a) => (w) => MkIORes(undefined, [a], w)`
pfunc primReadIORef uses (MkIORes MkUnit) : ∀ a. IORef a → IO a := `(_, ref) => (w) => MkIORes(undefined, ref[0], w)`
pfunc primWriteIORef uses (MkIORes MkUnit) : ∀ a. IORef a → a → IO a := `(_, ref, a) => (w) => {
pfunc primWriteIORef uses (MkIORes MkUnit) : ∀ a. IORef a → a → IO Unit := `(_, ref, a) => (w) => {
ref[0] = a
return MkIORes(undefined,MkUnit,w)
}`
@@ -19,7 +19,7 @@ readIORef : ∀ io a. {{HasIO io}} → IORef a → io a
readIORef ref = liftIO $ primReadIORef ref
writeIORef : ∀ io a. {{HasIO io}} → IORef a -> a -> io Unit
writeIORef ref a = liftIO $ writeIORef ref a
writeIORef ref a = liftIO $ primWriteIORef ref a
-- Idris HasIO constraints to monad, we don't have those constraints yet
modifyIORef : ∀ io a. {{Monad io}} {{HasIO io}} → IORef a -> (a -> a) -> io Unit