From f464f7600a24bb59a882f2a1cb56f8590708ffcf Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 22 Apr 2017 01:25:54 -0400 Subject: minor --- Role/User.hs | 3 ++- Role/Watcher.hs | 4 ++-- Session.hs | 4 ++-- 3 files changed, 6 insertions(+), 5 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) diff --git a/Role/Watcher.hs b/Role/Watcher.hs index 110c1ef..fddd59f 100644 --- a/Role/Watcher.hs +++ b/Role/Watcher.hs @@ -9,13 +9,13 @@ import SessionID import Control.Concurrent.STM import qualified Data.Text as T -import Role.Developer (processSessionStart, getUserMessage, Output(..), emitOutput) +import Role.Developer (processSessionStart, getUserMessage, emitOutput) run :: WatchOpts -> IO () run os = runClientApp $ clientApp (ConnectMode (T.pack (watchUrl os))) watcher watcher :: TChan (Message Entered) -> TChan (Message Seen) -> SessionID -> IO () -watcher _ichan ochan sid = inRawMode $ do +watcher _ichan ochan _ = inRawMode $ do st <- processSessionStart ochan nullLogger go st where diff --git a/Session.hs b/Session.hs index e7bf674..5840cee 100644 --- a/Session.hs +++ b/Session.hs @@ -5,9 +5,9 @@ module Session where import qualified Data.ByteString as B startSession :: B.ByteString -startSession = ">>> debug-me session starting" +startSession = ">>> debug-me session started" sessionDone :: IO () sessionDone = do putStrLn "" - putStrLn ">>> debug-me session is done" + putStrLn ">>> debug-me session ended" -- cgit v1.2.3