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/import.lux | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

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

diff --git a/stdlib/source/program/compositor/import.lux b/stdlib/source/program/compositor/import.lux
index 54227c7f3..7b4a9262e 100644
--- a/stdlib/source/program/compositor/import.lux
+++ b/stdlib/source/program/compositor/import.lux
@@ -33,7 +33,7 @@
 (def: Action
   (type (All [a] (Promise (Try a)))))
 
-(exception: #export useless-tar-entry)
+(exception: #export useless_tar_entry)
 
 (exception: #export (duplicate {library Library} {module Module})
   (exception.report
@@ -43,7 +43,7 @@
 (type: #export Import
   (Dictionary Path Binary))
 
-(def: (import-library system library import)
+(def: (import_library system library import)
   (-> (file.System Promise) Library Import (Action Import))
   (do (try.with promise.monad)
     [file (: (Action (File Promise))
@@ -55,8 +55,8 @@
        (monad.fold ! (function (_ entry import)
                        (case entry
                          (#tar.Normal [path instant mode ownership content])
-                         (let [path (tar.from-path path)]
-                           (case (dictionary.try-put path (tar.data content) import)
+                         (let [path (tar.from_path path)]
+                           (case (dictionary.try_put path (tar.data content) import)
                              (#try.Success import)
                              (wrap import)
                              
@@ -64,14 +64,14 @@
                              (exception.throw ..duplicate [library path])))
                          
                          _
-                         (exception.throw ..useless-tar-entry [])))
+                         (exception.throw ..useless_tar_entry [])))
                    import
-                   (row.to-list tar))))))
+                   (row.to_list tar))))))
 
 (def: #export (import system libraries)
   (-> (file.System Promise) (List Library) (Action Import))
   (monad.fold (: (Monad Action)
                  (try.with promise.monad))
-              (..import-library system)
+              (..import_library system)
               (dictionary.new text.hash)
               libraries))
-- 
cgit v1.2.3