control window and chatting

Works!

1 files changed, 2 insertions, 2 deletions

diff --git a/Session.hs b/Session.hs
index a80cad5..a09a762 100644
--- a/Session.hs
+++ b/Session.hs
@@ -8,10 +8,10 @@ import System.Exit
 import Data.Monoid
 
 startSession :: B.ByteString
-startSession = ">>> debug-me session started"
+startSession = "** debug-me session started"
 
 endSession :: ExitCode -> B.ByteString
-endSession ec = ">>> debug-me session ended (" <> B8.pack (show n) <> ")"
+endSession ec = "** debug-me session ended (" <> B8.pack (show n) <> ")"
   where
 	n = case ec of
 		ExitSuccess -> 0