rhi/quox
rhi/quox
1
0
Fork 0
Code Issues 15 Pull requests 1 Releases Wiki Activity

add Q.Log

Browse source
This commit is contained in:
rhiannon morris 2024-04-04 18:11:26 +02:00
parent ec839a1d48
commit 78555711ce
4 changed files with 263 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lib/Control/Monad/ST/Extra.idr
View file

@ -62,3 +62,21 @@ export %inline HasST (STErr e) where liftST = STE . map Right
export
stLeft : e -> STErr e s a
stLeft e = STE $ pure $ Left e
parameters {auto _ : HasST m}
export %inline
newSTRef' : a -> m s (STRef s a)
newSTRef' x = liftST $ newSTRef x
export %inline
readSTRef' : STRef s a -> m s a
readSTRef' r = liftST $ readSTRef r
export %inline
writeSTRef' : STRef s a -> a -> m s ()
writeSTRef' r x = liftST $ writeSTRef r x
export %inline
modifySTRef' : STRef s a -> (a -> a) -> m s ()
modifySTRef' r f = liftST $ modifySTRef r f