From 6591e2b974ac22cbc2a06141edef76a775726e11 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 26 Apr 2017 14:23:37 -0400 Subject: have server relay Devloper messages to other Developers --- Role/Watcher.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Role/Watcher.hs') diff --git a/Role/Watcher.hs b/Role/Watcher.hs index ddffa79..c13234f 100644 --- a/Role/Watcher.hs +++ b/Role/Watcher.hs @@ -8,19 +8,19 @@ import SessionID import Control.Concurrent.STM import Control.Concurrent.STM.TMChan -import Role.Developer (run', processSessionStart, getUserMessage, emitOutput) +import Role.Developer (run', processSessionStart, getServerMessage, emitOutput) run :: WatchOpts -> IO () run = run' watcher . watchUrl -watcher :: TMChan (Message Entered) -> TMChan (Message Seen) -> SessionID -> IO () +watcher :: TMChan (Message Entered) -> TMChan LogMessage -> SessionID -> IO () watcher _ichan ochan _ = inRawMode $ do (st, startoutput) <- processSessionStart ochan nullLogger emitOutput startoutput go st where go st = do - v <- atomically $ getUserMessage ochan st + v <- atomically $ getServerMessage ochan st case v of Nothing -> return () Just (o, _msg) -> do -- cgit v1.2.3