diff options
-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 |