diff options
| author | Joey Hess <joeyh@joeyh.name> | 2017-04-22 01:25:54 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-04-22 01:27:33 -0400 |
| commit | f464f7600a24bb59a882f2a1cb56f8590708ffcf (patch) | |
| tree | 5a7d974520f811007f462ee016400f43d16160a0 /Role/User.hs | |
| parent | 5a48331ca8852c3c9fe500fb66ef7436ae0dc20d (diff) | |
| download | debug-me-f464f7600a24bb59a882f2a1cb56f8590708ffcf.tar.gz | |
minor
Diffstat (limited to 'Role/User.hs')
| -rw-r--r-- | Role/User.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Role/User.hs b/Role/User.hs index ef56a6a..daaaa71 100644 --- a/Role/User.hs +++ b/Role/User.hs @@ -36,7 +36,8 @@ run os = do runClientApp $ clientApp (InitMode mempty) $ \ichan ochan sid -> do let url = sessionIDUrl sid "localhost" 8081 putStrLn "" - putStrLn $ "Others can connect to this session by running: debug-me --debug " ++ url + putStrLn "Others can connect to this session and help you debug by running:" + putStrLn $ " debug-me --debug " ++ url hFlush stdout runWithPty cmd cmdparams $ \(p, ph) -> do uthread <- async (user startmsg p ichan ochan) |