-- some modified versions of "putStrLn" and "getLine"
-- (see Interactive.hs)

module MyPrelude where

import System.IO

-- This function could also display its argument in a GUI window.
myPutStrLn :: String -> IO ()
myPutStrLn s = putStrLn ("The user is trying to print \"" ++ s ++ "\".")

-- This function could activate some GUI handler for displaying a prompt.
myGetLine :: IO String
myGetLine = putStr "getLine> " >> hFlush stdout >> getLine