From c8d89e24be18240c3eee27737713a5e70a68b7f5 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Sun, 3 Apr 2022 22:57:39 -0400
Subject: [PATCH] fix(tiny-httpd-vfs-pack): allow redirections when fetching
 resources

---
 src/bin/vfs_pack.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/bin/vfs_pack.ml b/src/bin/vfs_pack.ml
index ba5e0156..c1242153 100644
--- a/src/bin/vfs_pack.ml
+++ b/src/bin/vfs_pack.ml
@@ -53,7 +53,7 @@ let emit oc (l:entry list) : unit =
     | Url (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 ->
           let code = b.Curly.Response.code in
           if code >= 200 && code < 300 then (