diff options
| -rw-r--r-- | app/Main.hs | 9 |
1 files 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 |