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.
10 lines
182 B
10 lines
182 B
9 years ago
|
|
||
|
|
module ATrade.Util (
|
||
|
|
atomicMapIORef
|
||
|
|
) where
|
||
|
|
|
||
|
|
import Data.IORef
|
||
|
|
|
||
|
|
atomicMapIORef :: IORef a -> (a -> a) -> IO ()
|
||
|
|
atomicMapIORef ioref f = atomicModifyIORef' ioref (\s -> (f s, ()))
|