fake vfs module on non linux

This commit is contained in:
Simon Cruanes 2022-03-04 00:20:49 -05:00
parent 7347f55d14
commit d36011bce6
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4

View file

@ -40,3 +40,13 @@
--mirror=files/
--file=test_out.txt,%{out}
--url=example_dot_com,http://example.com)))
(rule
(targets vfs.ml)
(enabled_if (not (= %{system} "linux")))
(action
(with-stdout-to
%{targets}
(progn
(echo "let embedded_fs = Tiny_httpd_dir.Embedded_fs.create ~mtime:0. ()")
(echo "let vfs = Tiny_httpd_dir.Embedded_fs.to_vfs embedded_fs")))))