mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-22 19:21:39 +03:00
25 lines
447 B
Idris
25 lines
447 B
Idris
module Data.Ref
|
|
|
|
import public Data.IORef
|
|
import public Control.Monad.ST
|
|
|
|
%default total
|
|
|
|
public export
|
|
interface Ref m r | m where
|
|
newRef : {0 a : Type} -> a -> m (r a)
|
|
readRef : {0 a : Type} -> r a -> m a
|
|
writeRef : r a -> a -> m ()
|
|
|
|
export
|
|
HasIO io => Ref io IORef where
|
|
newRef = newIORef
|
|
readRef = readIORef
|
|
writeRef = writeIORef
|
|
|
|
export
|
|
Ref (ST s) (STRef s) where
|
|
newRef = newSTRef
|
|
readRef = readSTRef
|
|
writeRef = writeSTRef
|