如何使用Haskeline获取命令历史并启用箭头键切换历史功能？

箭头键翻阅历史失效的排查点 #

• 切换到系统原生终端运行程序：IDE内置控制台常存在ANSI转义序列支持缺陷，Linux/macOS用Terminal、Windows用PowerShell测试更准确。
• 升级Haskeline版本：旧版本可能存在终端兼容性bug，更新到最新稳定版可解决多数基础问题。
• 不要随意修改默认历史配置：defaultSettings已经内置箭头键上下翻历史的支持，自定义Settings时，避免覆盖historySettings字段的默认值。

历史仅保存第一条的修复方案 #

默认autoAddHistory = True有时会因输入逻辑触发异常，手动添加历史更可靠：

import System.Console.Haskeline

main :: IO ()
main = runInputT settings loop
  where
    -- 指定历史文件路径，沿用默认历史行为
    settings = defaultSettings { historyFile = Just ".command_history" }
    loop = do
      minput <- getInputLine "> "
      case minput of
        Nothing -> return ()
        Just "quit" -> return ()
        Just input -> do
          -- 手动将输入写入历史池
          addHistory input
          outputStrLn $ "Received: " ++ input
          loop

• 调用addHistory input可确保每条有效输入都被记录，不受自动触发逻辑的限制。
• 程序正常退出时，Haskeline会自动将历史写入指定文件，无需手动处理文件IO。

额外注意事项 #

• 若终端仍无法识别箭头键，显式指定默认历史配置：

  settings = defaultSettings {
      historyFile = Just ".command_history",
      historySettings = defaultHistorySettings
    }
  

• 检查历史文件权限：确保程序有权限读写指定路径，避免因权限不足导致保存失败。

内容的提问来源于stack exchange，提问作者pidgeon