From e39f2d9d8cda93b305ce967adde10ad314ff3c07 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 5 Sep 2014 09:39:53 -0600 Subject: [PATCH] make site: fix for SRC_CATALOG mode In SRC_CATALOG mode, there's not a separate "native" directory. original commit: f885d98d60317784dbe2458058ec1f375df5341b --- pkgs/distro-build-pkgs/distro-build-server/assemble-site.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/pkgs/distro-build-pkgs/distro-build-server/assemble-site.rkt b/pkgs/distro-build-pkgs/distro-build-server/assemble-site.rkt index 6d7fa7b..93ea397 100644 --- a/pkgs/distro-build-pkgs/distro-build-server/assemble-site.rkt +++ b/pkgs/distro-build-pkgs/distro-build-server/assemble-site.rkt @@ -86,7 +86,8 @@ (newline o)))))) (build-catalog built-dir) -(build-catalog native-dir) +(when (directory-exists? native-dir) + (build-catalog native-dir)) (let ([l (directory-list (build-path dest-dir catalog-dir "pkg"))]) ;; Write list of packages: (define sl (map path-element->string l))