HXQ-0.9.0: src/readline/System/Console/Readline.hs

module System.Console.Readline where

import System.IO

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

addHistory stmt = return ""