From 1e32b9112a92d4ca47d8932ece69c7b1aed23278 Mon Sep 17 00:00:00 2001
From: Dan Frumin <dfrumin@cs.ru.nl>
Date: Sun, 27 Jan 2019 13:58:05 +0100
Subject: [PATCH] Fix the `ocamlwiring_pull_up_dn_control` stub

---
 src/WiringPi_stubs.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/WiringPi_stubs.c b/src/WiringPi_stubs.c
index 54faae1..ecf1701 100644
--- a/src/WiringPi_stubs.c
+++ b/src/WiringPi_stubs.c
@@ -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);
 }