From 80fb3d85b2b9a30e8b717dc63aaca75d346f5667 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Wed, 12 Apr 2017 16:01:00 -0400
Subject: simulate laggy network

---
 debug-me.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'debug-me.hs')

diff --git a/debug-me.hs b/debug-me.hs
index 4122881..a0d7476 100644
--- a/debug-me.hs
+++ b/debug-me.hs
@@ -6,6 +6,7 @@ import Types
 import Hash
 import Pty
 
+import Control.Concurrent
 import Control.Concurrent.Async
 import Control.Concurrent.STM
 import System.IO
@@ -34,6 +35,9 @@ main = do
 		cancel uthread
 		return exitstatus
 
+networkDelay :: IO ()
+networkDelay = threadDelay 1000000
+
 developer :: TChan (Activity Entered) -> TChan (Activity Seen) -> IO ()
 developer ichan ochan = do
 	startact <- atomically $ readTChan ochan
@@ -147,6 +151,7 @@ sendPtyInput ichan p backlog = go
   where
 	Master h = ptyMaster p
 	go = do
+		networkDelay
 		mb <- atomically $ do
 			newact <- readTChan ichan
 			bl <- readTVar backlog
-- 
cgit v1.2.3