[Haskell-cafe] Running an action periodically