From d5caf9589a10a979b3241c7b85ca2cd895a533d6 Mon Sep 17 00:00:00 2001
From: Joshua Marner <biz@jmarner.com>
Date: Mon, 22 Apr 2024 17:14:36 -0500
Subject: [PATCH] Add a typed version of OneWaySeq

---
 src/Elmish.WPF/Binding.fs | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/Elmish.WPF/Binding.fs b/src/Elmish.WPF/Binding.fs
index d3c07694..f74f4ba6 100644
--- a/src/Elmish.WPF/Binding.fs
+++ b/src/Elmish.WPF/Binding.fs
@@ -116,6 +116,13 @@ module Binding =
       OneWayToSource.id
       |> createBindingT
 
+
+  module OneWaySeqT =
+
+    let id itemEquals (getId: 'a -> 'id) : string -> Binding<_, 'msg, _> =
+      OneWaySeq.create itemEquals getId
+      |> createBindingT
+
   /// <summary>
   ///   Strongly-typed bindings that update both ways
   /// </summary>