unsafe-array-operations: Use unsafe array operations in deque

Bounds are already being checked so...
inhabitedtype · Jun 11, 2017 · 4d9a43b · 4d9a43b
1 parent 9847742
commit 4d9a43b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/faraday.ml b/lib/faraday.ml
@@ -104,8 +104,8 @@ end = struct
     if is_empty t then
       raise Not_found
     else
-      let result = t.elements.(t.front) in
-      t.elements.(t.front) <- sentinel;
+      let result = Array.unsafe_get t.elements t.front in
+      Array.unsafe_set t.elements t.front sentinel;
       t.front <- t.front + 1;
       result