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

fix(tiny-httpd-vfs-pack): allow redirections when fetching resources

Browse source
This commit is contained in:
Simon Cruanes 2022-04-03 22:57:39 -04:00
parent 7d74dacbea
commit c8d89e24be
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/bin/vfs_pack.ml
View file

@ -53,7 +53,7 @@ let emit oc (l:entry list) : unit =
| Url (vfs_path, url) -> | Url (vfs_path, url) ->
if !verbose then Printf.eprintf "add url %S = %S\n%!" vfs_path url; if !verbose then Printf.eprintf "add url %S = %S\n%!" vfs_path url;
begin match Curly.get url with begin match Curly.get ~args:["-L"] url with
| Ok b -> | Ok b ->
let code = b.Curly.Response.code in let code = b.Curly.Response.code in
if code >= 200 && code < 300 then ( if code >= 200 && code < 300 then (