ref: f0b41bea1fc085bf1d3f4a255b7a62402259c8cc
dir: /tests/Readline.hs/
module Readline(main) where
import Prelude
import System.Console.SimpleReadline
main :: IO ()
main = do
putStrLn "Type 'quit' to quit."
loop
loop :: IO ()
loop = do
s <- getInputLineHist "hist.txt" "% "
case s of
Just "quit" -> putStrLn "Bye"
_ -> do putStrLn $ showMaybe showString s; loop