include "session is done" in the session transcript

Including the process exit status.

And cleaner Role.User shutdown sequence.

1 files changed, 9 insertions, 4 deletions

diff --git a/Session.hs b/Session.hs
index 5840cee..a80cad5 100644
--- a/Session.hs
+++ b/Session.hs
@@ -3,11 +3,16 @@
 module Session where
 
 import qualified Data.ByteString as B
+import qualified Data.ByteString.Char8 as B8
+import System.Exit
+import Data.Monoid
 
 startSession :: B.ByteString
 startSession = ">>> debug-me session started"
 
-sessionDone :: IO ()
-sessionDone = do
-	putStrLn ""
-	putStrLn ">>> debug-me session ended"
+endSession :: ExitCode -> B.ByteString
+endSession ec = ">>> debug-me session ended (" <> B8.pack (show n) <> ")"
+  where
+	n = case ec of
+		ExitSuccess -> 0
+		ExitFailure c -> c