From 819bc614a3da4aa566e91e12fee86d832ff09e5e Mon Sep 17 00:00:00 2001
From: Johan von Tangen Sivertsen <johanvts@gmail.com>
Date: Wed, 5 Apr 2023 23:36:48 +0200
Subject: [PATCH] Update F# example

The old example is referencing undefined methods 'run' and 'fail' and does not have an implicit entry point. It also doesn't open `CommandLine`. I tried to write a shorter example that will not produce errors if pasted into an empty console app.
---
 README.md | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/README.md b/README.md
index 79a16fa7..5b94b63f 100644
--- a/README.md
+++ b/README.md
@@ -155,6 +155,7 @@ Demo to show IEnumerable  options and other usage:  [Online Demo](https://dotnet
   <summary>Click to expand!</summary>
 
 ```fsharp
+open CommandLine
 
 type options = {
   [<Option('r', "read", Required = true, HelpText = "Input files.")>] files : seq<string>;
@@ -163,11 +164,10 @@ type options = {
   [<Value(0, MetaName="offset", HelpText = "File offset.")>] offset : int64 option;
 }
 
-let main argv =
-  let result = CommandLine.Parser.Default.ParseArguments<options>(argv)
-  match result with
-  | :? Parsed<options> as parsed -> run parsed.Value
-  | :? NotParsed<options> as notParsed -> fail notParsed.Errors
+let arguments = CommandLine.Parser.Default.ParseArguments<options>(System.Environment.GetCommandLineArgs())
+match arguments with
+    | :? Parsed<options> as parsed -> printfn "Success: %A" parsed.Value
+    | _ -> ()
 ```
 </details>