From eb63a1e29ee40b0f16a8d12b9a085e9bdf6b41f0 Mon Sep 17 00:00:00 2001
From: Hyunwoo Nam <namenu@gmail.com>
Date: Sat, 20 Feb 2021 18:42:48 +0900
Subject: [PATCH] Belt.Array.slice => Js.Array2.slice

---
 __tests__/Array_test.re | 7 +++++++
 src/Garter_Array.re     | 4 ++--
 2 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/__tests__/Array_test.re b/__tests__/Array_test.re
index 725589e..179cc3d 100644
--- a/__tests__/Array_test.re
+++ b/__tests__/Array_test.re
@@ -1,6 +1,13 @@
 open Garter.Array;
 open Garter.Fn;
 
+assert(take([|1, 2, 3, 4, 5|], -1) == [||]);
+assert(take([|1, 2, 3, 4, 5|], 2) == [|1, 2|]);
+assert(take([|1, 2, 3, 4, 5|], 7) == [|1, 2, 3, 4, 5|]);
+assert(drop([|1, 2, 3, 4, 5|], -1) == [|1, 2, 3, 4, 5|]);
+assert(drop([|1, 2, 3, 4, 5|], 2) == [|3, 4, 5|]);
+assert(drop([|1, 2, 3, 4, 5|], 7) == [||]);
+
 assert(takeWhile([|1, 2, 3, 4, 5|], x => x <= 2) == [|1, 2|]);
 assert(takeWhile([|1, 2, 3, 4, 5|], constantly(false)) == [||]);
 assert(dropWhile([|1, 2, 3, 4, 5|], x => x <= 2) == [|3, 4, 5|]);
diff --git a/src/Garter_Array.re b/src/Garter_Array.re
index 6d67f8b..49fdb32 100644
--- a/src/Garter_Array.re
+++ b/src/Garter_Array.re
@@ -19,7 +19,7 @@ let take = (ar, n) => {
     } else {
       n;
     };
-  slice(ar, ~offset=0, ~len);
+  Js.Array2.slice(ar, ~start=0, ~end_=len);
 };
 
 let takeWhileU = (ar, pred) => {
@@ -45,7 +45,7 @@ let drop = (ar, n) => {
     } else {
       n;
     };
-  sliceToEnd(ar, offset);
+  Js.Array2.sliceFrom(ar, offset);
 };
 
 let dropWhileU = (ar, pred) => {