Session.hs


1
2
3
4
5
6
7
8
9
10
11
12
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"