blob: e7bf674f5f56f5560236dec48e15c7f3a459a6d6 (
plain)
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"
|