shithub: MicroHs

ref: 35ed3c006dbbc7cf3dc0dfbff24ee87ea4ebf2f6
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