unfake, but beware of the duplication!

dfinity · Dec 10, 2024 · 2e58517 · 2e58517
1 parent f80ffa8
commit 2e58517
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/ir_passes/async.ml b/src/ir_passes/async.ml
@@ -341,7 +341,7 @@ let transform prog =
                      (primE SystemCyclesAddPrim [dotE pars "cycles" T.nat]))
         else None in
       let timeoutSetup = if hasTimeout
-        then Some (primE SystemTimeoutPrim [nat32E  Mo_values.Numerics.Nat32.zero])
+        then Some (primE SystemTimeoutPrim [dotE pars "timeout" T.nat32])
         else None in
       let setup = match cyclesSetup, timeoutSetup with
         | Some c, Some t -> Some (thenE c t)