From 5b222d040ee361dd4022e88488a6bcef3ca40a71 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 12 Oct 2020 01:04:47 -0400
Subject: Tweaked how I64 masks are made.

---
 stdlib/source/test/aedifex/parser.lux | 8 +++-----
 1 file changed, 3 insertions(+), 5 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 988883779..a171e694d 100644
--- a/stdlib/source/test/aedifex/parser.lux
+++ b/stdlib/source/test/aedifex/parser.lux
@@ -73,9 +73,7 @@
                 (case> (#try.Success actual)
                        (|> expected
                            ..with-default-sources
-                           [//.default]
-                           list
-                           (dictionary.from-list text.hash)
+                           (//project.project //.default)
                            (:: //project.equivalence = actual))
                        
                        (#try.Failure error)
@@ -84,7 +82,7 @@
 (def: (with-empty-profile project)
   (-> Project Project)
   (if (dictionary.empty? project)
-    //project.empty
+    (//project.project //.default (:: //.monoid identity))
     project))
 
 (def: multiple-profiles
@@ -102,7 +100,7 @@
                            dictionary.entries
                            (list@map (function (_ [name profile])
                                        [name (..with-default-sources profile)]))
-                           (dictionary.from-list text.hash)
+                           (dictionary.from-list text.hash) 
                            (:: //project.equivalence = actual))
                        
                        (#try.Failure error)
-- 
cgit v1.2.3