homam

import Control.Concurrent
import Control.Exception


setInterval :: Int -> a -> (a -> IO a) -> IO ()
setInterval microsecs a action = do
    mvar <- newEmptyMVar
    _ <- setInterval' microsecs a mvar action
    takeMVar mvar