shithub: MicroHs

ref: 352f99764dbd0228a2d8f62958596b4ab102268f
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