Fix Json_decoder.( let* )

The previous implementation made no sense at all, but we never saw it
because we have never used it.

1 files changed, 1 insertions, 1 deletions

diff --git a/lib/json_decoder/json_decoder.ml b/lib/json_decoder/json_decoder.ml
index b7b9c57..1f84820 100644
--- a/lib/json_decoder/json_decoder.ml
+++ b/lib/json_decoder/json_decoder.ml
@@ -10,7 +10,7 @@ module Syntax = struct
 
   let ( let* ) dec k value =
     let x = dec value in
-    k x
+    k x value
 
   let return x _value = x
 end