diff options
| author | Joey Hess <joeyh@joeyh.name> | 2017-04-18 12:16:33 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-04-18 12:16:33 -0400 |
| commit | 5b37ab893db9f7f4510dd03944271aa583ba83e2 (patch) | |
| tree | 8abdaf65aad337ab81d466a4f1638fd24fd41cb3 /debug-me.hs | |
| parent | f9dc35994f3a50083efe5eaf9e6405e98d49fd40 (diff) | |
| download | debug-me-5b37ab893db9f7f4510dd03944271aa583ba83e2.tar.gz | |
cleanup
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 |