- Add at least a test to `examples/passing/` and possibly to `examples/failing`.

- Build the binaries and libs with `cabal build`

- Install the binaries and libs with `cabal install`.

If you would like to contribute, please consider the issues in the current milestone first. If you are a new contributor, you may want to have a go at the ["easy" issues](https://github.com/purescript/purescript/labels/easy) to get started.

{-# LANGUAGE DataKinds #-}

{-# LANGUAGE TupleSections #-}

{-# LANGUAGE GeneralizedNewtypeDeriving #-}

{-# LANGUAGE FlexibleInstances #-}

makeActions foreigns = P.MakeActions getInputTimestamp getOutputTimestamp readExterns codegen progress

where

getInputTimestamp :: P.ModuleName -> Test (Either P.RebuildPolicy (Maybe UTCTime))

| isSupportModule (P.runModuleName mn) = return (Left P.RebuildNever)

| otherwise = return (Left P.RebuildAlways)

where

isSupportModule = flip elem supportModules

getOutputTimestamp :: P.ModuleName -> Test (Maybe UTCTime)

getOutputTimestamp mn = do

let filePath = modulesDir </> P.runModuleName mn

exists <- liftIO $ doesDirectoryExist filePath

return (if exists then Just (error "getOutputTimestamp: read timestamp") else Nothing)

readExterns :: P.ModuleName -> Test (FilePath, String)

readExterns mn = do

let filePath = modulesDir </> P.runModuleName mn </> "externs.purs"

(filePath, ) <$> readTextFile filePath

codegen :: CF.Module CF.Ann -> P.Environment -> P.SupplyVar -> P.Externs -> Test ()

codegen m _ nextVar exts = do

let mn = CF.moduleName m

writeTextFile jsFile pjs

maybe (return ()) (writeTextFile foreignFile . snd) $ CF.moduleName m `M.lookup` foreigns

writeTextFile externsFile exts

readTextFile :: FilePath -> Test String

readTextFile path = liftIO $ readFile path

writeTextFile :: FilePath -> String -> Test ()

writeTextFile path text = liftIO $ do

createDirectoryIfMissing True (takeDirectory path)

writeFile path text

progress :: String -> Test ()

progress = liftIO . putStrLn

ms <- P.parseModulesFromFiles id fs

P.make (makeActions foreigns) (map (\(k, v) -> (Right k, v)) ms)

IO ()

assert inputFiles foreigns f = do

e <- compile inputFiles foreigns

assertCompiles inputFiles foreigns = do

putStrLn $ "Assert " ++ last inputFiles ++ " compiles successfully"

assert inputFiles foreigns $ \e ->

Left errs -> return . Just . P.prettyPrintMultipleErrors False $ errs

Right _ -> do

process <- findNodeProcess

findNodeProcess :: IO (Maybe String)

findNodeProcess = runMaybeT . msum $ map (MaybeT . findExecutable) names

names = ["nodejs", "node"]

main :: IO ()

main = do

cwd <- getCurrentDirectory

let supportDir = cwd </> "tests" </> "support" </> "flattened"

let supportFiles ext = Glob.globDir1 (Glob.compile ("*." ++ ext)) supportDir

foreignFiles <- forM supportJS (\f -> (f,) <$> readFile f)

Right (foreigns, _) <- runExceptT $ runWriterT $ P.parseForeignModulesFromFiles foreignFiles

let passing = cwd </> "examples" </> "passing"

passingTestCases <- getDirectoryContents passing

forM_ passingTestCases $ \inputFile -> when (".purs" `isSuffixOf` inputFile) $

assertDoesNotCompile (supportPurs ++ [failing </> inputFile]) foreigns

exitSuccess

supportModules :: [String]

supportModules =

[ "Control.Monad.Eff.Class"