From 8a7d54a74e3229d7936426b4d100f97420a6e282 Mon Sep 17 00:00:00 2001 From: Mirek Kratochvil Date: Sat, 14 Jan 2023 23:30:44 +0100 Subject: [PATCH] histories --- app/Main.hs | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/app/Main.hs b/app/Main.hs index 5f103f0..1a1bfff 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -1,7 +1,12 @@ module Main where import Frontend (interpreter) -import System.Console.Haskeline (defaultSettings, runInputT) +import System.Console.Haskeline (Settings(..), defaultSettings, runInputT) +import System.Environment (lookupEnv) main :: IO () -main = runInputT defaultSettings interpreter +main = do + hf <- lookupEnv "HOME" + runInputT + defaultSettings {historyFile = fmap (++ "/.prlg_history") hf} + interpreter