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/aedifex/project.lux | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'stdlib/source/program/aedifex/project.lux')

diff --git a/stdlib/source/program/aedifex/project.lux b/stdlib/source/program/aedifex/project.lux
index bd191fffb..5dce87e0a 100644
--- a/stdlib/source/program/aedifex/project.lux
+++ b/stdlib/source/program/aedifex/project.lux
@@ -25,7 +25,7 @@
 
 (def: #export (project name profile)
   (-> Name Profile Project)
-  (dictionary.from-list text.hash (list [name profile])))
+  (dictionary.from_list text.hash (list [name profile])))
 
 (def: #export equivalence
   (Equivalence Project)
@@ -38,13 +38,13 @@
     (dictionary.new text.hash))
 
   (def: compose
-    (dictionary.merge-with (\ //.monoid compose))))
+    (dictionary.merge_with (\ //.monoid compose))))
 
-(exception: #export (unknown-profile {name Name})
+(exception: #export (unknown_profile {name Name})
   (exception.report
    ["Name" (%.text name)]))
 
-(exception: #export (circular-dependency {dependee Name} {dependent Name})
+(exception: #export (circular_dependency {dependee Name} {dependent Name})
   (exception.report
    ["Dependent" (%.text dependent)]
    ["Dependee" (%.text dependee)]))
@@ -56,7 +56,7 @@
     (case (list.find (set.member? lineage)
                      (get@ #//.parents profile))
       (#.Some ouroboros)
-      (exception.throw ..circular-dependency [ouroboros name])
+      (exception.throw ..circular_dependency [ouroboros name])
       
       #.None
       (do {! try.monad}
@@ -68,7 +68,7 @@
                          parents))))
     
     #.None
-    (exception.throw ..unknown-profile [name])))
+    (exception.throw ..unknown_profile [name])))
 
 (def: #export (profile name project)
   (-> Name Project (Try Profile))
-- 
cgit v1.2.3