diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-04-12 16:01:00 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-04-12 16:01:00 -0400 |
commit | 80fb3d85b2b9a30e8b717dc63aaca75d346f5667 (patch) | |
tree | e505b607fc39f3c4a8f9169619ca2d658fede994 | |
parent | be3cf7447253d08bd55a632409c059cd5894a243 (diff) | |
download | debug-me-80fb3d85b2b9a30e8b717dc63aaca75d346f5667.tar.gz |
simulate laggy network
-rw-r--r-- | Types.hs | 2 | ||||
-rw-r--r-- | debug-me.hs | 5 |
2 files changed, 6 insertions, 1 deletions
@@ -1,7 +1,7 @@ module Types where import Data.ByteString -import Crypto.Hash as H +import qualified Crypto.Hash as H -- | Things that the developer sees. data Seen = Seen 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 |