ATrade core infrastructure
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 

9 lines
182 B

module ATrade.Util (
atomicMapIORef
) where
import Data.IORef
atomicMapIORef :: IORef a -> (a -> a) -> IO ()
atomicMapIORef ioref f = atomicModifyIORef' ioref (\s -> (f s, ()))