diff options
| author | Joey Hess <joeyh@joeyh.name> | 2017-04-21 21:06:04 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-04-21 21:06:04 -0400 |
| commit | fe3c26650bb1e267cce756831fdb9cde230cafd5 (patch) | |
| tree | 5482e3b0f600fd6bb79087e9b26c4539d7530d6c /Role/Developer.hs | |
| parent | 378770cde6fb9fd85983c05eab9eeff2e34398c2 (diff) | |
| download | debug-me-fe3c26650bb1e267cce756831fdb9cde230cafd5.tar.gz | |
use UUID to generate a unique SessionID
Diffstat (limited to 'Role/Developer.hs')
| -rw-r--r-- | Role/Developer.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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 |