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/test/aedifex/profile.lux | 30 +++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/profile.lux b/stdlib/source/test/aedifex/profile.lux
index 1743a243a..9316fae66 100644
--- a/stdlib/source/test/aedifex/profile.lux
+++ b/stdlib/source/test/aedifex/profile.lux
@@ -69,23 +69,23 @@
   (Random /.Contributor)
   ..developer)
 
-(def: (list-of random)
+(def: (list_of random)
   (All [a] (-> (Random a) (Random (List a))))
   (do {! random.monad}
     [size (\ ! map (n.% 5) random.nat)]
     (random.list size random)))
 
-(def: (set-of hash random)
+(def: (set_of hash random)
   (All [a] (-> (Hash a) (Random a) (Random (Set a))))
   (\ random.functor map
-     (set.from-list hash)
-     (..list-of random)))
+     (set.from_list hash)
+     (..list_of random)))
 
-(def: (dictionary-of key-hash key-random value-random)
+(def: (dictionary_of key_hash key_random value_random)
   (All [k v] (-> (Hash k) (Random k) (Random v) (Random (Dictionary k v))))
   (\ random.functor map
-     (dictionary.from-list key-hash)
-     (..list-of (random.and key-random value-random))))
+     (dictionary.from_list key_hash)
+     (..list_of (random.and key_random value_random))))
 
 (def: info
   (Random /.Info)
@@ -93,10 +93,10 @@
       (random.maybe (random.ascii/alpha 1))
       (random.maybe ..scm)
       (random.maybe (random.ascii/alpha 1))
-      (..list-of ..license)
+      (..list_of ..license)
       (random.maybe ..organization)
-      (..list-of ..developer)
-      (..list-of ..contributor)
+      (..list_of ..developer)
+      (..list_of ..contributor)
       ))
 
 (def: name
@@ -118,16 +118,16 @@
 (def: #export random
   (Random /.Profile)
   ($_ random.and
-      (..list-of ..name)
+      (..list_of ..name)
       (random.maybe @artifact.random)
       (random.maybe ..info)
-      (..set-of text.hash ..repository)
-      (..set-of //dependency.hash @dependency.random)
-      (..set-of text.hash ..source)
+      (..set_of text.hash ..repository)
+      (..set_of //dependency.hash @dependency.random)
+      (..set_of text.hash ..source)
       (random.maybe ..target)
       (random.maybe (random.ascii/alpha 1))
       (random.maybe (random.ascii/alpha 1))
-      (..dictionary-of text.hash (random.ascii/alpha 1) ..repository)
+      (..dictionary_of text.hash (random.ascii/alpha 1) ..repository)
       ))
 
 (def: #export test
-- 
cgit v1.2.3