perga/app/Main.hs

module Main where

import qualified Data.Map.Strict as M
import Program (handleAndParseFile)
import Repl

main :: IO ()
main = do
    args <- getArgs
    case args of
        [] -> void repl
        files -> handleFiles files

handleFiles :: [String] -> IO ()
handleFiles [] = putTextLn "success!"
handleFiles (file : rest) = runExceptT (handleAndParseFile M.empty file) >>= either putStrLn (const $ handleFiles rest)
basics 2024-10-05 13:31:09 -07:00			`module Main where`

made repl preserve environment 2024-12-01 18:06:03 -08:00			`import qualified Data.Map.Strict as M`
compiles, getting stuck somewhere though 2024-11-30 23:43:17 -08:00			`import Program (handleAndParseFile)`
improved usage 2024-11-15 18:39:44 -08:00			`import Repl`
greatly improved pretty printer 2024-11-11 14:34:55 -08:00
basics 2024-10-05 13:31:09 -07:00			`main :: IO ()`
added state to parser 2024-10-05 16:04:13 -07:00			`main = do`
improved usage 2024-11-15 18:39:44 -08:00			`args <- getArgs`
			`case args of`
HUGE update 2024-11-17 18:33:14 -08:00			`[] -> void repl`
compiles, getting stuck somewhere though 2024-11-30 23:43:17 -08:00			`files -> handleFiles files`
improved usage 2024-11-15 18:39:44 -08:00
compiles, getting stuck somewhere though 2024-11-30 23:43:17 -08:00			`handleFiles :: [String] -> IO ()`
			`handleFiles [] = putTextLn "success!"`
made repl preserve environment 2024-12-01 18:06:03 -08:00			`handleFiles (file : rest) = runExceptT (handleAndParseFile M.empty file) >>= either putStrLn (const $ handleFiles rest)`