diff options
Diffstat (limited to 'Session.hs')
-rw-r--r-- | Session.hs | 13 |
1 files changed, 9 insertions, 4 deletions
@@ -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 |