diff options
Diffstat (limited to 'src/executable')
| -rw-r--r-- | src/executable/haskell/Service/AdListener.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/executable/haskell/Service/AdListener.hs b/src/executable/haskell/Service/AdListener.hs index 9af92f4..5b4d634 100644 --- a/src/executable/haskell/Service/AdListener.hs +++ b/src/executable/haskell/Service/AdListener.hs @@ -71,9 +71,10 @@ sleepUntilReady conf = do Just d -> do sleepSeconds d - Nothing -> - -- TODO 04/09/2019: Add noise - sleepSeconds . Conf.listenInterval $ conf + Nothing -> do + duration <- TimeUtils.addNoise (Conf.listenInterval conf) (Conf.listenIntervalNoise conf) + putStrLn . show $ duration + sleepSeconds duration where sleepSeconds = threadDelay . (*) 1000000 . round |