From e683f156b7eb8e761c254704538914d86f309801 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 28 Apr 2017 17:00:17 -0400 Subject: control window and chatting Works! --- Session.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Session.hs') 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 -- cgit v1.2.3