From afa6b297bd7bf9361727ae78794d9310d3678d13 Mon Sep 17 00:00:00 2001
From: Adelyn Breelove <tenseiken595@gmail.com>
Date: Wed, 13 Feb 2019 10:58:39 -0700
Subject: Re-arrange and whatnot

---
 lib/rl.ml | 30 ------------------------------
 1 file changed, 30 deletions(-)
 delete mode 100644 lib/rl.ml

(limited to 'lib/rl.ml')

diff --git a/lib/rl.ml b/lib/rl.ml
deleted file mode 100644
index f0c15be..0000000
--- a/lib/rl.ml
+++ /dev/null
@@ -1,30 +0,0 @@
-open Core
-open Async
-
-module RouteMap = Map.Make(String)
-
-type rl = {
-    limit: int;
-    remaining: int;
-    reset: int;
-}
-
-type t = ((rl, read_write) Mvar.t) RouteMap.t
-
-let rl_of_header h =
-    let module C = Cohttp.Header in
-    match C.get h "X-RateLimit-Limit", C.get h "X-RateLimit-Remaining", C.get h "X-RateLimit-Reset" with
-    | Some lim, Some rem, Some re ->
-        let limit = Int.of_string lim in
-        let remaining = Int.of_string rem in
-        let reset = Int.of_string re in
-        Some { limit; remaining; reset; }
-    | _ -> None
-
-let default = { limit = 1; remaining = 1; reset = 0; }
-let empty : t = RouteMap.empty
-let update = RouteMap.update
-let find = RouteMap.find
-let find_exn m s = match find m s with
-    | Some r -> r
-    | None -> raise (Not_found_s (String.sexp_of_t s))
\ No newline at end of file
-- 
cgit v1.2.3