web,resource: fix resource path for zip files w/o a root dir

MarcKaufmann · Mar 29, 2024 · e272a58 · e272a58
1 parent 45d4e3c
commit e272a58
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/congame-web/pages/resource.rkt b/congame-web/pages/resource.rkt
@@ -54,7 +54,9 @@
      (define study-dir-path
        (path-only study-path))
      (define entry-path
-       (apply build-path study-dir-path path-elements))
+       (if study-dir-path
+           (apply build-path study-dir-path path-elements)
+           (apply build-path path-elements)))
      (define data #"")
      (unzip-entry
       in dir (path->bytes entry-path)