Commit 17d3f6d4 authored by ijones's avatar ijones
Browse files

rawSystemEmit

parent 693083bf
rawSystemEmit :: FilePath -- ^Script name
-> Bool -- ^if true, emit, if false, run
-> Int -- ^Verbosity
-> FilePath -- ^Program to run
-> [String] -- ^Args
-> IO ()
rawSystemEmit _ False verbosity path args
= rawSystemExit verbosity path args
rawSystemEmit scriptName True verbosity path args
= writeFile scriptName ("#!/bin/sh\n\n"
++ (path ++ concatMap (' ':) args)
++ "\n")
>> putStrLn (path ++ concatMap (' ':) args)
-- build the executables
sequence_ [rawSystemExit (compilerPath (compiler lbi)) ["--make", modName, "-o" ++ exeName]
| (exeName, modName, _) <- executables pkg_descr]
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment