blob: 1a1bfff567ea7686ac26d52fd94568b29dd50792 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
module Main where
import Frontend (interpreter)
import System.Console.Haskeline (Settings(..), defaultSettings, runInputT)
import System.Environment (lookupEnv)
main :: IO ()
main = do
hf <- lookupEnv "HOME"
runInputT
defaultSettings {historyFile = fmap (++ "/.prlg_history") hf}
interpreter
|
