foldJsonObject -> caseJsonObject

kritzcreek · kritzcreek · commit 1c37090f61d2 · 2018-05-11T10:36:29.000+02:00
diff --git a/src/Data/Argonaut/Gen.purs b/src/Data/Argonaut/Gen.purs
@@ -34,7 +34,7 @@ genJson = Gen.resize (min 5) $ Gen.sized genJson'
   extendJObj obj k = do
     v <- genJson
     pure $
-      J.foldJsonObject
+      J.caseJsonObject
         (J.jsonSingletonObject k v)
         (J.fromObject <<< Obj.insert k v)
         obj
