Add some more active patterns

src/FSharpPlus/Operators.fs

@@ -7,6 +7,8 @@ open FSharpPlus.Control
 [<AutoOpenAttribute>]
 module Operators =
 
+    open FSharpPlus.Internals.Errors
+
     // Common combinators
 
     /// <summary>Creates a new function with first two arguments flipped.</summary>
@@ -1657,8 +1659,34 @@ module Operators =
     /// <category index="23">Additional Functions</category>
     let inline (|Parsed|_|) str : 'T option = tryParse str
 
-    #endif
+#endif
+
+    /// <summary>
+    /// An active pattern to match strings in a case-insensitive way.
+    /// </summary>
+    /// <category index="23">Additional Functions</category>
+    let (|CiString|_|) (ciString: string) (source: string) : unit option =
+        let ciString = nullArgCheck (nameof ciString) ciString
+        let source   = nullArgCheck (nameof source)   source
+
+        match source with
+        | s when s.Equals(ciString, StringComparison.OrdinalIgnoreCase) -> Some ()
+        | _ -> None
+
+#if !FABLE_COMPILER
+
+    /// <summary>
+    /// An active pattern to match AggregateException and extract its inner exceptions as a list.
+    /// </summary>
+    /// <category index="23">Additional Functions</category>
+    let (|AggregateException|_|) (exn: exn) : exn list option =
+        let exn = nullArgCheck (nameof exn) exn
+
+        match exn with
+        | :? AggregateException as aex -> aex.InnerExceptions |> Seq.toList |> Some
+        | _ -> None
 
+#endif
 
     /// <summary>
     /// Safely dispose a resource (includes null-checking).
@@ -1667,7 +1695,7 @@ module Operators =
     let dispose (resource: System.IDisposable) = match resource with null -> () | x -> x.Dispose ()
 
 
-    #if !FABLE_COMPILER
+#if !FABLE_COMPILER
 
     /// <summary>Additional operators for Arrows related functions which shadows some F# operators for bitwise functions.</summary>
     module Arrows =
@@ -1688,4 +1716,4 @@ module Operators =
         /// <category index="24">Arrow Functions</category>
         let inline (|||) (f: '``ArrowChoice<'T,'V>``) (g: '``ArrowChoice<'U,'V>``) : '``ArrowChoice<Choice<'U,'T>,'V>`` = Fanin.Invoke f g
 
-    #endif
+#endif

tests/FSharpPlus.Tests/Task.fs

@@ -10,11 +10,6 @@ module Task =
     open FSharpPlus.Tests.Helpers
 
     exception TestException of string
-
-    let (|AggregateException|_|) (x: exn) =
-        match x with
-        | :? AggregateException as e -> e.InnerExceptions |> Seq.toList |> Some
-        | _ -> None
 
     module TaskTests =
 

tests/FSharpPlus.Tests/ValueTask.fs

@@ -10,11 +10,6 @@ module ValueTask =
     open FSharpPlus.Tests.Helpers
 
     exception TestException of string
-
-    let (|AggregateException|_|) (x: exn) =
-        match x with
-        | :? AggregateException as e -> e.InnerExceptions |> Seq.toList |> Some
-        | _ -> None
 
     type ValueTask<'T> with
         static member WhenAll (source: ValueTask<'T> seq) = source |> Seq.map (fun x -> x.AsTask ()) |> Task.WhenAll |> ValueTask<'T []>