23 lines
502 B
Haskell
23 lines
502 B
Haskell
module Main where
|
|
|
|
import Eval
|
|
import Lexer
|
|
import Library
|
|
import Parser
|
|
import REPL (repl)
|
|
import Research
|
|
|
|
import qualified Data.Map as Map
|
|
import Text.Megaparsec (runParser)
|
|
|
|
main :: IO ()
|
|
main = do
|
|
putStrLn "Welcome to the Sapling Interpreter"
|
|
putStrLn "You can exit at any time by typing and entering: "
|
|
putStrLn ":_exit"
|
|
repl library
|
|
|
|
runSapling :: String -> T
|
|
runSapling s = result (evalSapling Map.empty $ parseSapling s)
|
|
runSaplingEnv env s = result (evalSapling env $ parseSapling s)
|