diff options
Diffstat (limited to 'debug-me.hs')
-rw-r--r-- | debug-me.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/debug-me.hs b/debug-me.hs index 25f216b..793eb2e 100644 --- a/debug-me.hs +++ b/debug-me.hs @@ -45,9 +45,9 @@ test = do cancel uthread return exitstatus --- | 800 ms is about the latency to geosync orbit networkDelay :: IO () -networkDelay = threadDelay 800000 -- 150000 -- 800000 +networkDelay = threadDelay 800000 -- 800 ms ; the latency to geosync orbit +-- networkDelay = threadDelay 150000 -- 150 ms ; transatlantic latency developer :: TChan (Activity Entered) -> TChan (Activity Seen) -> IO () developer ichan ochan = withLogger "debug-me-developer.log" $ \logger -> do |