From b4292969673878fad392fc6ae1543fa82b017117 Mon Sep 17 00:00:00 2001 From: Sven van Heugten Date: Tue, 12 May 2026 07:01:45 +0200 Subject: [PATCH] Add usage message --- Mutannot/Program.fs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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