程序代写 module Main where

module Main where

import Interface
import Parser ( parseExprs )

Copyright By PowCoder代写 加微信 powcoder

import AST
import System.Environment (getArgs)

run :: Datum -> Maybe String
run = undefined

main :: IO ()
main = do files <- getArgs contents <- concat <$> mapM readFile files
case parseExprs True contents of
Left err -> putStrLn (“parse error: ” ++ show err)
Right ds -> mapM_ (\d -> case run d of
Nothing -> putStrLn “error”
Just ress -> putStrLn ress) ds

程序代写 CS代考 加微信: powcoder QQ: 1823890830 Email: powcoder@163.com