diff options
| author | Joey Hess <joeyh@joeyh.name> | 2017-04-30 12:54:50 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-04-30 12:55:28 -0400 |
| commit | 1bda1faf65c2ccf4e6a0dc349ddbc0f97b67b1da (patch) | |
| tree | 17fdff934f71bc2fbb643bb3ed96e7da757e5bb5 /Role/Watcher.hs | |
| parent | 263b547ad43dff0e4948e860ac8d1cfa4f4cf0f1 (diff) | |
| download | debug-me-1bda1faf65c2ccf4e6a0dc349ddbc0f97b67b1da.tar.gz | |
log remote logs to subdir
Diffstat (limited to 'Role/Watcher.hs')
| -rw-r--r-- | Role/Watcher.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Role/Watcher.hs b/Role/Watcher.hs index f314b46..0867da1 100644 --- a/Role/Watcher.hs +++ b/Role/Watcher.hs @@ -15,7 +15,7 @@ run :: WatchOpts -> IO () run = run' watcher . watchUrl watcher :: TMVar (TVar DeveloperState) -> TMChan (Message Entered) -> TMChan AnyMessage -> SessionID -> IO () -watcher dsv _ichan ochan sid = withSessionLogger sid $ \logger -> inRawMode $ do +watcher dsv _ichan ochan sid = withSessionLogger (Just "remote") sid $ \logger -> inRawMode $ do sk <- genMySessionKey (st, startoutput) <- processSessionStart sk ochan logger dsv emitOutput startoutput |