simon/tiny_httpd
1
0
Fork 0
mirror of https://github.com/c-cube/tiny_httpd.git synced 2025-12-06 03:05:29 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

ignore empty string in exact_path

Browse source
This commit is contained in:
craff 2021-12-17 22:08:01 -10:00
parent 613c9ae7c3
commit 8fc22ff07e
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/Tiny_httpd.ml
View file

@ -752,6 +752,7 @@ module Route = struct
let exact_path (s:string) tail = let exact_path (s:string) tail =
let rec fn = function let rec fn = function
| [] -> tail | [] -> tail
| ""::ls -> fn ls
| s::ls -> exact s @/ fn ls | s::ls -> exact s @/ fn ls
in in
fn (String.split_on_char '/' s) fn (String.split_on_char '/' s)