From 8fc22ff07ee6424f4b16bbd3690ac22bd056a52a Mon Sep 17 00:00:00 2001
From: craff <christophe@raffalli.eu>
Date: Fri, 17 Dec 2021 22:08:01 -1000
Subject: [PATCH] ignore empty string in exact_path

---
 src/Tiny_httpd.ml | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Tiny_httpd.ml b/src/Tiny_httpd.ml
index ae836b62..ad416b99 100644
--- a/src/Tiny_httpd.ml
+++ b/src/Tiny_httpd.ml
@@ -752,6 +752,7 @@ module Route = struct
   let exact_path (s:string) tail =
     let rec fn = function
       | [] -> tail
+      | ""::ls -> fn ls
       | s::ls -> exact s @/ fn ls
     in
     fn (String.split_on_char '/' s)