From 9102a47c6c68039a288a6ee8f43fe14b034ce356 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 18 Apr 2017 14:18:16 -0400 Subject: add --replay option This commit was sponsored by Ole-Morten Duesund on Patreon. --- Session.hs | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 Session.hs (limited to 'Session.hs') diff --git a/Session.hs b/Session.hs new file mode 100644 index 0000000..e7bf674 --- /dev/null +++ b/Session.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE OverloadedStrings, RankNTypes, FlexibleContexts #-} + +module Session where + +import qualified Data.ByteString as B + +startSession :: B.ByteString +startSession = ">>> debug-me session starting" + +sessionDone :: IO () +sessionDone = do + putStrLn "" + putStrLn ">>> debug-me session is done" -- cgit v1.2.3