tempus-0.1.0: Tempus/Main.hs

module Main (main) where

import Paths_tempus

import Control.Monad

import System.Environment.Executable
import System.Directory
import System.FilePath

import Tempus.Interpreter


main :: IO ()
main = do
    (path1, _) <- splitExecutablePath
    path2 <- getDataDir
    files <- filterM doesFileExist . map (</> "Prelude.tp") $ [".", path1, path2]

    repl $ head $ take 1 (map Just files) ++ [Nothing]