diff --git a/Mutannot/Program.fs b/Mutannot/Program.fs index e7195fc..1de7c20 100644 --- a/Mutannot/Program.fs +++ b/Mutannot/Program.fs @@ -2,6 +2,10 @@ open Fli [] let main argv = + if argv.Length <> 1 then + eprintfn "Usage: mutannot " + exit 1 + let gitState = cli { Exec "git" @@ -12,6 +16,6 @@ let main argv = if gitState.Text <> None then eprintfn "Uncommitted changes. Refusing to run." - exit 1 + exit 2 0