From 94e5802f594a73245fce0fbd885103b8bf210d57 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Fri, 2 Dec 2022 19:33:00 -0400 Subject: Added some simple time-series handling machinery. --- stdlib/source/test/aedifex/parser.lux | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'stdlib/source/test/aedifex/parser.lux') diff --git a/stdlib/source/test/aedifex/parser.lux b/stdlib/source/test/aedifex/parser.lux index cbc67dbab..2fb1ec812 100644 --- a/stdlib/source/test/aedifex/parser.lux +++ b/stdlib/source/test/aedifex/parser.lux @@ -40,12 +40,12 @@ (def (list_of random) (All (_ a) (-> (Random a) (Random (List a)))) (do [! random.monad] - [size (at ! each (|>> (n.% 5) ++) random.nat)] + [size (of ! each (|>> (n.% 5) ++) random.nat)] (random.list size random))) (def (dictionary_of key_hash key_random value_random) (All (_ k v) (-> (Hash k) (Random k) (Random v) (Random (Dictionary k v)))) - (at random.functor each + (of random.functor each (dictionary.of_list key_hash) (..list_of (random.and key_random value_random)))) @@ -69,7 +69,7 @@ (def (with_empty_profile project) (-> Project Project) (if (dictionary.empty? project) - (//project.project //.default (at //.monoid identity)) + (//project.project //.default (of //.monoid identity)) project)) (def with_defaults @@ -94,6 +94,6 @@ //format.project list (.result /.project) - (try#each (at //project.equivalence = (..with_defaults expected))) + (try#each (of //project.equivalence = (..with_defaults expected))) (try.else false) ))))) -- cgit v1.2.3