TimeZoneNotFoundException F# snippet (#7917)

albert-du · web-flow · commit d0e277bc4ec7 · 2022-04-05T09:49:11.000-04:00
diff --git a/snippets/fsharp/System/InvalidTimeZoneException/.ctor/TimeZoneNotFoundException.fs b/snippets/fsharp/System/InvalidTimeZoneException/.ctor/TimeZoneNotFoundException.fs
@@ -0,0 +1,28 @@
+﻿// <Snippet1>
+open System
+
+let retrieveTimeZone tzName =
+    try
+        TimeZoneInfo.FindSystemTimeZoneById tzName
+    with 
+    | :? TimeZoneNotFoundException as ex1 ->
+        raise (TimeZoneNotFoundException($"The time zone '{tzName}' cannot be found.", ex1) )
+    | :? InvalidTimeZoneException as ex2 ->
+        raise (InvalidTimeZoneException($"The time zone {tzName} contains invalid data.", ex2) )
+
+let handleInnerException () =
+    let timeZoneName = "Any Standard Time"
+    try
+        let tz = retrieveTimeZone timeZoneName
+        printfn $"The time zone display name is {tz.DisplayName}."
+    with :? TimeZoneNotFoundException as e ->
+        printfn $"{e.GetType().Name} thrown by application"
+        printfn $"   Message: {e.Message}" 
+        if e.InnerException <> null then
+            printfn "   Inner Exception Information:"
+            let rec printInner (innerEx: exn) =
+                if innerEx <> null then
+                    printfn $"      {innerEx.GetType().Name}: {innerEx.Message}"
+                    printInner innerEx.InnerException
+            printInner e
+// </Snippet1>
diff --git a/snippets/fsharp/System/InvalidTimeZoneException/.ctor/fs.fsproj b/snippets/fsharp/System/InvalidTimeZoneException/.ctor/fs.fsproj
@@ -0,0 +1,10 @@
+<Project Sdk="Microsoft.NET.Sdk">
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>net6.0</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="TimeZoneNotFoundException.fs" />
+  </ItemGroup>
+</Project>
diff --git a/xml/System/TimeZoneNotFoundException.xml b/xml/System/TimeZoneNotFoundException.xml
@@ -291,6 +291,7 @@
  The following example tries to retrieve a nonexistent time zone, which throws a <xref:System.TimeZoneNotFoundException>. The exception handler wraps the exception in a new <xref:System.TimeZoneNotFoundException> object, which the exception handler returns to the caller. The caller's exception handler then displays information about both the outer and inner exception.  
   
  :::code language="csharp" source="~/snippets/csharp/System/InvalidTimeZoneException/.ctor/TimeZoneNotFoundException.cs" id="Snippet1":::
+ :::code language="fsharp" source="~/snippets/fsharp/System/InvalidTimeZoneException/.ctor/TimeZoneNotFoundException.fs" id="Snippet1":::
  :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_CLR_System/system.TimeZoneNotFoundException.Class/vb/TimeZoneNotFoundException.vb" id="Snippet1":::  
   
  ]]></format>
