have server relay Devloper messages to other Developers

1 files changed, 3 insertions, 3 deletions

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