shithub: MicroHs

ref: d0d713aa32b0b202e3f876fd304c0491b9d1d6bc
dir: /ghc/System/Console/SimpleReadline.hs/

module System.Console.SimpleReadline(
--  getInputLine,
  getInputLineHist
  ) where
import qualified System.Console.Haskeline as H
import System.Console.Haskeline hiding (getInputLine)

{-
getInputLine :: String -> IO (Maybe String)
getInputLine prompt =
  runInputT defaultSettings (H.getInputLine prompt)
-}

getInputLineHist :: FilePath -> String -> IO (Maybe String)
getInputLineHist hist prompt =
  runInputT settings (H.getInputLine prompt)
  where settings = defaultSettings { historyFile = Just hist }