aboutsummaryrefslogtreecommitdiff
path: root/lib/rl.ml
diff options
context:
space:
mode:
authorAdelyn Breelove <[email protected]>2018-12-13 15:50:37 -0700
committerAdelyn Breelove <[email protected]>2018-12-13 15:50:37 -0700
commit179d9598fe62e2966471b312fd438e98ff3a272a (patch)
treecbe69315ccd51dc69912a39fee30dfa767fa491e /lib/rl.ml
parentWorking on deriving types from json (diff)
downloaddisml-179d9598fe62e2966471b312fd438e98ff3a272a.tar.xz
disml-179d9598fe62e2966471b312fd438e98ff3a272a.zip
Fix more dispatch issues
Diffstat (limited to 'lib/rl.ml')
-rw-r--r--lib/rl.ml3
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/rl.ml b/lib/rl.ml
index 316abcf..f0c15be 100644
--- a/lib/rl.ml
+++ b/lib/rl.ml
@@ -21,8 +21,9 @@ let rl_of_header h =
Some { limit; remaining; reset; }
| _ -> None
-let update = RouteMap.update
+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