Fix the ocamlwiring_pull_up_dn_control stub

This commit is contained in:
dan authored and GitHub committed 2019-01-27 13:58:05 +01:00
1 parent cdac97b364
commit 1e32b9112a
1 file changed
+1 -1
+1 -1
View File
@@ -45,7 +45,7 @@ value ocamlwiring_pin_mode(value pin, value mode)
value ocamlwiring_pull_up_dn_control(value pin, value pud)
{
CAMLparam2(pin, pud);
pullUpDnControl(Int_val(pin), Int_val(pin));
pullUpDnControl(Int_val(pin), Int_val(pud));
CAMLreturn(Val_unit);
}