added p and m back to UiBoundCmdParam sample

elmish · Oct 8, 2019 · cfd9f58 · cfd9f58
1 parent 5593c35
commit cfd9f58
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Samples/UiBoundCmdParam/Program.fs b/src/Samples/UiBoundCmdParam/Program.fs
@@ -26,7 +26,7 @@ let bindings () : Binding<Model, Msg> list = [
   "Numbers" |> Binding.oneWay(fun m -> m.Numbers)
   "Limit" |> Binding.twoWay((fun m -> float m.EnabledMaxLimit), int >> SetLimit)
   "Command" |> Binding.cmdParamIf(
-    (fun _ _ -> Command),
+    (fun p m -> Command),
     (fun p m -> not (isNull p) && p :?> int <= m.EnabledMaxLimit),
     true)
 ]