From e9acbaef31a5a302d20a16134420d21ff5508859 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 758d2b1e..f9aef51b 100644
--- a/src/Elmish.WPF/BindingData.fs
+++ b/src/Elmish.WPF/BindingData.fs
@@ -2,6 +2,7 @@ namespace Elmish.WPF
 
 open System.Collections.ObjectModel
 open System.Windows
+open System.Windows.Input
 
 open Elmish
 
@@ -549,7 +550,7 @@ module internal BindingData =
 
   module Cmd =
 
-    let createWithParam exec canExec autoRequery =
+    let createWithParam exec canExec autoRequery : BindingData<'model, 'msg, ICommand> =
       { Exec = exec
         CanExec = canExec
         AutoRequery = autoRequery }