From 5a6a5b34f6a88331bdf080191f1d54a0d786b792 Mon Sep 17 00:00:00 2001
From: Joshua Marner <biz@jmarner.com>
Date: Sat, 6 Aug 2022 15:44:29 -0500
Subject: [PATCH] Add type constraint for commands

---
 src/Elmish.WPF/BindingData.fs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Elmish.WPF/BindingData.fs b/src/Elmish.WPF/BindingData.fs
index 1358f9bc..fef07ff6 100644
--- a/src/Elmish.WPF/BindingData.fs
+++ b/src/Elmish.WPF/BindingData.fs
@@ -3,6 +3,7 @@ module internal Elmish.WPF.BindingData
 
 open System.Collections.ObjectModel
 open System.Windows
+open System.Windows.Input
 
 open Elmish
 
@@ -552,7 +553,7 @@ module BindingData =
 
   module Cmd =
 
-    let createWithParam exec canExec autoRequery : BindingData<'model, 'msg, 't> =
+    let createWithParam exec canExec autoRequery : BindingData<'model, 'msg, ICommand> =
       { Exec = exec
         CanExec = canExec
         AutoRequery = autoRequery }