fix connection closing

Now when the user quits, the developer also exits.

1 files changed, 4 insertions, 6 deletions

diff --git a/Role/Developer.hs b/Role/Developer.hs
index ffba5c4..64ff094 100644
--- a/Role/Developer.hs
+++ b/Role/Developer.hs
@@ -39,12 +39,10 @@ developer ichan ochan _ = withLogger "debug-me-developer.log" $ \logger -> do
 	devstate <- processSessionStart ochan logger
 	ok <- authUser ichan ochan devstate logger
 	if ok
-		then inRawMode $ do
-			_ <- sendTtyInput ichan devstate logger
-				`concurrently` sendTtyOutput ochan devstate logger
-			return ()
-		else do
-			hPutStrLn stderr "\nUser did not grant access to their terminal."
+		then inRawMode $ void $ 
+			sendTtyInput ichan devstate logger
+				`race` sendTtyOutput ochan devstate logger
+		else hPutStrLn stderr "\nUser did not grant access to their terminal."
 
 data DeveloperState = DeveloperState
 	{ lastSeen :: Hash