From 6a7164810b70a19c462b17331db2dc935e42776e Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Thu, 3 Mar 2022 22:16:50 -0500
Subject: [PATCH] missing option in vfs-pack

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

diff --git a/src/bin/vfs_pack.ml b/src/bin/vfs_pack.ml
index b4e3b83f..ba5e0156 100644
--- a/src/bin/vfs_pack.ml
+++ b/src/bin/vfs_pack.ml
@@ -135,6 +135,7 @@ let () =
     let vfs_path, path = split_comma s in
     let vfs_path, path = if path="" then "", vfs_path else vfs_path, path in
     add_entry (Mirror (vfs_path, path))
+  and add_source f = add_entry (Source_file f)
   and add_url s =
     let vfs_path, path = split_comma s in
     if is_url path then add_entry (Url(vfs_path, path))
@@ -147,6 +148,7 @@ let () =
     "--file", Arg.String add_file, " <name,file> adds name=file to the VFS";
     "--url", Arg.String add_url, " <name,url> adds name=url to the VFS";
     "--mirror", Arg.String add_mirror, " <prefix,dir> copies directory dir into the VFS under prefix";
+    "-F", Arg.String add_source, " <file> reads entries from the file, on per line";
   ] |> Arg.align in
   Arg.parse opts (fun _ -> raise (Arg.Help "no positional arg")) help;