Fix the `ocamlwiring_pull_up_dn_control` stub

This commit is contained in:
Dan Frumin 2019-01-27 13:58:05 +01:00 committed by GitHub
parent cdac97b364
commit 1e32b9112a
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions

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);
}