shithub: MicroHs

ref: 7e4b932d753399e7e87b5f4709250c98142b03e5
dir: /tests/Readline.hs/

View raw version 
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