From 4ca397765805eda5ddee393901ed3a02001a960a Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 25 Dec 2020 09:22:38 -0400
Subject: Replaced kebab-case with snake_case for naming convention.

---
 stdlib/source/program/compositor/export.lux | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

(limited to 'stdlib/source/program/compositor/export.lux')

diff --git a/stdlib/source/program/compositor/export.lux b/stdlib/source/program/compositor/export.lux
index b649f333b..2c764aff9 100644
--- a/stdlib/source/program/compositor/export.lux
+++ b/stdlib/source/program/compositor/export.lux
@@ -32,11 +32,11 @@
 (def: file
   "library.tar")
 
-(def: no-ownership
+(def: no_ownership
   tar.Ownership
   (let [commons (: tar.Owner
                    {#tar.name tar.anonymous
-                    #tar.id tar.no-id})]
+                    #tar.id tar.no_id})]
     {#tar.user commons
      #tar.group commons}))
 
@@ -46,21 +46,21 @@
     [files (io.enumerate system sources)]
     (|> (dictionary.entries files)
         (monad.map try.monad
-                   (function (_ [path source-code])
+                   (function (_ [path source_code])
                      (do try.monad
                        [path (|> path
-                                 (text.replace-all (\ system separator) .module-separator)
+                                 (text.replace_all (\ system separator) .module_separator)
                                  tar.path)
-                        source-code (tar.content source-code)]
+                        source_code (tar.content source_code)]
                        (wrap (#tar.Normal [path
-                                           (instant.from-millis +0)
+                                           (instant.from_millis +0)
                                            ($_ 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)
+                                               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)
         (\ promise.monad wrap))))
 
 (def: #export (export system [sources target])
@@ -68,8 +68,8 @@
   (do (try.with promise.monad)
     [tar (..library system sources)
      package (: (Promise (Try (file.File Promise)))
-                (file.get-file promise.monad system
+                (file.get_file promise.monad system
                                (format target (\ system separator) ..file)))]
     (|> tar
         (binary.run tar.writer)
-        (!.use (\ package over-write)))))
+        (!.use (\ package over_write)))))
-- 
cgit v1.2.3