shithub: MicroHs

ref: 99944a78c8f19d35dd53f82161c671de3264f8d2
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