ddc-war-0.2.1.1: DDC/War/Create/CreateMainHS.hs

module DDC.War.Create.CreateMainHS
        (create)
where
import DDC.War.Create.Way
import DDC.War.Driver
import System.FilePath
import DDC.War.Job                              ()
import Data.Set                                 (Set)
import qualified DDC.War.Job.CompileHS          as CompileHS
import qualified DDC.War.Job.RunExe             as RunExe


-- | Compile and run Main.hs files.
--   When we run the exectuable, pass it out build dir as the first argument.
create :: Way -> Set FilePath -> FilePath -> Maybe Chain
create way _allFiles filePath
 | takeFileName filePath == "Main.hs"
 = let  
        sourceDir       = takeDirectory  filePath
        buildDir        = sourceDir </> "war-" ++ wayName way
        testName        = filePath

        mainBin         = buildDir </> "Main.bin"
        mainCompStdout  = buildDir </> "Main.compile.stdout"
        mainCompStderr  = buildDir </> "Main.compile.stderr"
        mainRunStdout   = buildDir </> "Main.run.stdout"
        mainRunStderr   = buildDir </> "Main.run.stderr"

        compile         = jobOfSpec (JobId testName (wayName way))
                        $ CompileHS.Spec
                                filePath []
                                buildDir mainCompStdout mainCompStderr
                                mainBin

        run             = jobOfSpec (JobId testName (wayName way))
                        $ RunExe.Spec
                                filePath 
                                mainBin [buildDir]
                                mainRunStdout mainRunStderr
                                True

   in   Just $ Chain [compile, run]

 | otherwise    = Nothing