Replaced kebab-case with snake_case for naming convention.

1 files changed, 9 insertions, 9 deletions

diff --git a/stdlib/source/test/aedifex/metadata/snapshot.lux b/stdlib/source/test/aedifex/metadata/snapshot.lux
index e17765038..e9e42be9a 100644
--- a/stdlib/source/test/aedifex/metadata/snapshot.lux
+++ b/stdlib/source/test/aedifex/metadata/snapshot.lux
@@ -29,31 +29,31 @@
   {#program
    ["." /]})
 
-(def: random-instant
+(def: random_instant
   (Random Instant)
   (do {! random.monad}
     [year (\ ! map (|>> (n.% 10,000) .int) random.nat)
      month (\ ! map (n.% 13) random.nat)
-     day-of-month (\ ! map (n.% 29) random.nat)
+     day_of_month (\ ! map (n.% 29) random.nat)
      hour (\ ! map (n.% 24) random.nat)
      minute (\ ! map (n.% 60) random.nat)
      second (\ ! map (n.% 60) random.nat)]
     (wrap (try.assume
            (do try.monad
              [year (year.year year)
-              month (month.by-number month)
-              date (date.date year month day-of-month)
+              month (month.by_number month)
+              date (date.date year month day_of_month)
               time (time.time
                     {#time.hour hour
                      #time.minute minute
                      #time.second second
-                     #time.milli-second 0})]
-             (wrap (instant.from-date-time date time)))))))
+                     #time.milli_second 0})]
+             (wrap (instant.from_date_time date time)))))))
 
-(def: random-versioning
+(def: random_versioning
   (Random /.Versioning)
   ($_ random.and
-      ..random-instant
+      ..random_instant
       random.nat
       (random.list 5 $///type.random)
       ))
@@ -64,7 +64,7 @@
       (random.ascii/alpha 5)
       (random.ascii/alpha 5)
       (random.ascii/alpha 5)
-      ..random-versioning))
+      ..random_versioning))
 
 (def: #export test
   Test