From 9af671a34728b35c48bff2ba163c371dc5084946 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 10 Dec 2020 22:29:32 -0400
Subject: Render XML to text in an indented form for human readability.

---
 stdlib/source/program/compositor/export.lux | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'stdlib/source/program/compositor')

diff --git a/stdlib/source/program/compositor/export.lux b/stdlib/source/program/compositor/export.lux
index bc2ced5a3..b649f333b 100644
--- a/stdlib/source/program/compositor/export.lux
+++ b/stdlib/source/program/compositor/export.lux
@@ -54,7 +54,10 @@
                         source-code (tar.content source-code)]
                        (wrap (#tar.Normal [path
                                            (instant.from-millis +0)
-                                           tar.none
+                                           ($_ tar.and
+                                               tar.read-by-owner tar.write-by-owner
+                                               tar.read-by-group tar.write-by-group
+                                               tar.read-by-other)
                                            ..no-ownership
                                            source-code])))))
         (\ try.monad map row.from-list)
-- 
cgit v1.2.3