From fe3c26650bb1e267cce756831fdb9cde230cafd5 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 21 Apr 2017 21:06:04 -0400 Subject: use UUID to generate a unique SessionID --- Role/Developer.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'Role') diff --git a/Role/Developer.hs b/Role/Developer.hs index a53e841..4ff0cda 100644 --- a/Role/Developer.hs +++ b/Role/Developer.hs @@ -76,7 +76,9 @@ sendTtyInput :: TChan (Message Entered) -> TVar DeveloperState -> Logger -> IO ( sendTtyInput ichan devstate logger = go where go = do + print "in sendTtyInput" b <- B.hGetSome stdin 1024 + print "sending from dev" if b == B.empty then return () else send b -- cgit v1.2.3