dc1a1c8540
See issue #1664 This is just the first step to implement proposal described at issue #1664.
24 lines
621 B
Text
24 lines
621 B
Text
/-
|
|
Copyright (c) 2017 Microsoft Corporation. All rights reserved.
|
|
Released under Apache 2.0 license as described in the file LICENSE.
|
|
Author: Gabriel Ebner
|
|
-/
|
|
import system.io leanpkg.toml
|
|
open io io.proc
|
|
variable [io.interface]
|
|
|
|
namespace leanpkg
|
|
|
|
def exec_cmd (args : io.process.spawn_args) : io unit := do
|
|
let cmdstr := join " " (args.cmd :: args.args),
|
|
io.put_str_ln $ "> " ++
|
|
match args.cwd with
|
|
| some cwd := cmdstr ++ " # in directory " ++ cwd
|
|
| none := cmdstr
|
|
end,
|
|
ch ← spawn args,
|
|
exitv ← wait ch,
|
|
when (exitv ≠ 0) $ io.fail $
|
|
"external command exited with status " ++ repr exitv
|
|
|
|
end leanpkg
|