svenvanheugten/mutannot
1
0
Fork 0
Code Issues Pull requests 1 Projects Releases Packages Wiki Activity Actions

Add usage message

Browse source
This commit is contained in:
Sven van Heugten 2026-05-12 07:01:45 +02:00
parent c2e5a01e26
commit b429296967
No known key found for this signature in database
GPG key ID: D612F88666F4F660
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Mutannot/Program.fs
View file

@ -2,6 +2,10 @@ open Fli
[<EntryPoint>] [<EntryPoint>]
let main argv = let main argv =
if argv.Length <> 1 then
eprintfn "Usage: mutannot <path/to/project.csproj|fsproj>"
exit 1
let gitState = let gitState =
cli { cli {
Exec "git" Exec "git"
@ -12,6 +16,6 @@ let main argv =
if gitState.Text <> None then if gitState.Text <> None then
eprintfn "Uncommitted changes. Refusing to run." eprintfn "Uncommitted changes. Refusing to run."
exit 1 exit 2
0 0