From 5009bfaa56119a58e675a1e6008623790b54cc1c Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 30 Mar 2019 00:47:26 -0400
Subject: Yet more fixes.

---
 stdlib/source/test/lux/data/error.lux       | 2 +-
 stdlib/source/test/lux/data/format/json.lux | 8 ++++----
 2 files changed, 5 insertions(+), 5 deletions(-)

(limited to 'stdlib/source/test')

diff --git a/stdlib/source/test/lux/data/error.lux b/stdlib/source/test/lux/data/error.lux
index 58d37aef7..9012b3212 100644
--- a/stdlib/source/test/lux/data/error.lux
+++ b/stdlib/source/test/lux/data/error.lux
@@ -32,7 +32,7 @@
 (def: #export (error element)
   (All [a] (-> (Random a) (Random (Error a))))
   ($_ r.or
-      (r.ascii 10)
+      (:: r.monad wrap "KABOOM!")
       element))
 
 (def: #export test
diff --git a/stdlib/source/test/lux/data/format/json.lux b/stdlib/source/test/lux/data/format/json.lux
index a170d3163..f276c5180 100644
--- a/stdlib/source/test/lux/data/format/json.lux
+++ b/stdlib/source/test/lux/data/format/json.lux
@@ -48,16 +48,16 @@
 
 (def: #export json
   (Random JSON)
-  (r.rec (function (_ json)
+  (r.rec (function (_ recur)
            (do r.monad
              [size (:: @ map (n/% 2) r.nat)]
              ($_ r.or
                  (:: @ wrap [])
                  r.bit
-                 r.frac
+                 r.safe-frac
                  (r.unicode size)
-                 (r.row size json)
-                 (r.dictionary text.hash size (r.unicode size) json)
+                 (r.row size recur)
+                 (r.dictionary text.hash size (r.unicode size) recur)
                  )))))
 
 (def: #export test
-- 
cgit v1.2.3