21 lines
443 B
FSharp
21 lines
443 B
FSharp
open Fli
|
|
|
|
[<EntryPoint>]
|
|
let main argv =
|
|
if argv.Length <> 1 then
|
|
eprintfn "Usage: mutannot <path/to/project.csproj|fsproj>"
|
|
exit 1
|
|
|
|
let gitState =
|
|
cli {
|
|
Exec "git"
|
|
Arguments [ "status"; "--porcelain" ]
|
|
}
|
|
|> Command.execute
|
|
|> Output.throwIfErrored
|
|
|
|
if gitState.Text <> None then
|
|
eprintfn "Uncommitted changes. Refusing to run."
|
|
exit 2
|
|
|
|
0
|