diff options
| author | Joey Hess <joeyh@joeyh.name> | 2017-04-24 17:13:28 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-04-24 17:13:28 -0400 |
| commit | 17d76b2a59d496a2ffd6d2199b1c6ad563b0bb5b (patch) | |
| tree | 3c8f21c0b17502e504396d6b42ff76be2fa51668 /Role/Watcher.hs | |
| parent | 337091314588b67620e61c2c80cbb6180f07d440 (diff) | |
| download | debug-me-17d76b2a59d496a2ffd6d2199b1c6ad563b0bb5b.tar.gz | |
fix downloader and watcher
Diffstat (limited to 'Role/Watcher.hs')
| -rw-r--r-- | Role/Watcher.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 |