From 5b37ab893db9f7f4510dd03944271aa583ba83e2 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Tue, 18 Apr 2017 12:16:33 -0400
Subject: cleanup

---
 debug-me.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'debug-me.hs')

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
-- 
cgit v1.2.3