module System.Console.Readline where

import System.IO

readline prompt = do putStr prompt
                     hFlush stdout
                     line <- getLine
                     return (Just line)

addHistory stmt = return ""