Update F.debounce and F.throttle

mobily · Dec 11, 2021 · 2545d74 · 2545d74
1 parent aa1b767
commit 2545d74
Showing 1 changed file with 5 additions and 7 deletions.
diff --git a/src/Function/Function.res b/src/Function/Function.res
@@ -64,7 +64,8 @@ export throttle = (fn, delay) => {
     Belt.Option.mapWithDefaultU(timer.contents, (), (. timer) => Js.Global.clearTimeout(timer))
     timer := None
   }
-  let make = () =>
+
+  (. ()) =>
     if !isThrottled.contents {
       cancel()
       isThrottled := true
@@ -75,24 +76,21 @@ export throttle = (fn, delay) => {
       }, delay)
       timer := Some(timeout)
     }
-
-  make
 }
 
-let debounce = (fn, delay) => {
+export debounce = (fn, delay) => {
   let timer = ref(None)
   let cancel = () => {
     Belt.Option.mapWithDefaultU(timer.contents, (), (. timer) => Js.Global.clearTimeout(timer))
     timer := None
   }
-  let make = () => {
+
+  (. ()) => {
     cancel()
     let timeout = Js.Global.setTimeout(() => {
       fn()
       timer := None
     }, delay)
     timer := Some(timeout)
   }
-
-  make
 }