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

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

diff --git a/stdlib/source/program/aedifex/profile.lux b/stdlib/source/program/aedifex/profile.lux
index 9729514f2..adf1b049e 100644
--- a/stdlib/source/program/aedifex/profile.lux
+++ b/stdlib/source/program/aedifex/profile.lux
@@ -30,7 +30,7 @@
   #Repo
   #Manual)
 
-(structure: distribution-equivalence
+(structure: distribution_equivalence
   (Equivalence Distribution)
 
   (def: (= reference subject)
@@ -49,12 +49,12 @@
    URL
    Distribution])
 
-(def: license-equivalence
+(def: license_equivalence
   (Equivalence License)
   ($_ product.equivalence
       text.equivalence
       text.equivalence
-      ..distribution-equivalence))
+      ..distribution_equivalence))
 
 (type: #export SCM
   URL)
@@ -63,7 +63,7 @@
   [Text
    URL])
 
-(def: organization-equivalence
+(def: organization_equivalence
   (Equivalence Organization)
   ($_ product.equivalence
       text.equivalence
@@ -77,12 +77,12 @@
    Email
    (Maybe Organization)])
 
-(def: developer-equivalence
+(def: developer_equivalence
   (Equivalence Developer)
   ($_ product.equivalence
       text.equivalence
       text.equivalence
-      (maybe.equivalence ..organization-equivalence)))
+      (maybe.equivalence ..organization_equivalence)))
 
 (type: #export Contributor
   Developer)
@@ -96,18 +96,18 @@
    #developers (List Developer)
    #contributors (List Contributor)})
 
-(def: info-equivalence
+(def: info_equivalence
   (Equivalence Info)
   ($_ product.equivalence
       (maybe.equivalence text.equivalence)
       (maybe.equivalence text.equivalence)
       (maybe.equivalence text.equivalence)
-      (list.equivalence ..license-equivalence)
-      (maybe.equivalence ..organization-equivalence)
-      (list.equivalence ..developer-equivalence)
-      (list.equivalence ..developer-equivalence)))
+      (list.equivalence ..license_equivalence)
+      (maybe.equivalence ..organization_equivalence)
+      (list.equivalence ..developer_equivalence)
+      (list.equivalence ..developer_equivalence)))
 
-(def: #export default-info
+(def: #export default_info
   Info
   {#url #.None
    #scm #.None
@@ -120,14 +120,14 @@
 (type: #export Source
   Path)
 
-(def: #export default-source
+(def: #export default_source
   Source
   "source")
 
 (type: #export Target
   Path)
 
-(def: #export default-target
+(def: #export default_target
   Target
   "target")
 
@@ -148,7 +148,7 @@
    #target (Maybe Target)
    #program (Maybe Module)
    #test (Maybe Module)
-   #deploy-repositories (Dictionary Text repository.Address)})
+   #deploy_repositories (Dictionary Text repository.Address)})
 
 (def: #export equivalence
   (Equivalence Profile)
@@ -158,7 +158,7 @@
       ## #identity
       (maybe.equivalence artifact.equivalence)
       ## #info
-      (maybe.equivalence ..info-equivalence)
+      (maybe.equivalence ..info_equivalence)
       ## #repositories
       set.equivalence
       ## #dependencies
@@ -171,7 +171,7 @@
       (maybe.equivalence text.equivalence)
       ## #test
       (maybe.equivalence text.equivalence)
-      ## #deploy-repositories
+      ## #deploy_repositories
       (dictionary.equivalence text.equivalence)))
 
 (structure: #export monoid
@@ -187,7 +187,7 @@
      #target #.None
      #program #.None
      #test #.None
-     #deploy-repositories (dictionary.new text.hash)})
+     #deploy_repositories (dictionary.new text.hash)})
 
   (def: (compose override baseline)
     {#parents (list\compose (get@ #parents baseline) (get@ #parents override))
@@ -199,6 +199,6 @@
      #target (maybe\compose (get@ #target override) (get@ #target baseline))
      #program (maybe\compose (get@ #program override) (get@ #program baseline))
      #test (maybe\compose (get@ #test override) (get@ #test baseline))
-     #deploy-repositories (dictionary.merge (get@ #deploy-repositories override) (get@ #deploy-repositories baseline))}))
+     #deploy_repositories (dictionary.merge (get@ #deploy_repositories override) (get@ #deploy_repositories baseline))}))
 
-(exception: #export no-identity)
+(exception: #export no_identity)
-- 
cgit v1.2.3