minor

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"