From 17d76b2a59d496a2ffd6d2199b1c6ad563b0bb5b Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 24 Apr 2017 17:13:28 -0400 Subject: fix downloader and watcher --- Role/Watcher.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Role/Watcher.hs') diff --git a/Role/Watcher.hs b/Role/Watcher.hs index 6ed1a6b..ddffa79 100644 --- a/Role/Watcher.hs +++ b/Role/Watcher.hs @@ -15,7 +15,8 @@ run = run' watcher . watchUrl watcher :: TMChan (Message Entered) -> TMChan (Message Seen) -> SessionID -> IO () watcher _ichan ochan _ = inRawMode $ do - st <- processSessionStart ochan nullLogger + (st, startoutput) <- processSessionStart ochan nullLogger + emitOutput startoutput go st where go st = do -- cgit v1.2.3