Commit 4fd1e31d authored by Ilias Tsitsimpis's avatar Ilias Tsitsimpis

lens-aeson: Fix tests

parent 42fe6e60
haskell-lens-aeson (1.0.2-6) unstable; urgency=medium
* Backport upstream patch to fix failing tests (Closes: #912630)
-- Ilias Tsitsimpis <iliastsi@debian.org> Mon, 05 Nov 2018 22:37:16 +0200
haskell-lens-aeson (1.0.2-5) unstable; urgency=medium
* Newer build-deps from hackage
......
From 1d5059f57c31ce3c13d43049b61da19d4b40917e Mon Sep 17 00:00:00 2001
From: Eric Mertens <emertens@gmail.com>
Date: Sun, 4 Nov 2018 16:42:33 -0800
Subject: [PATCH] Make doctests deterministic
Fixes #30
---
src/Data/Aeson/Lens.hs | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
Index: b/src/Data/Aeson/Lens.hs
===================================================================
--- a/src/Data/Aeson/Lens.hs
+++ b/src/Data/Aeson/Lens.hs
@@ -328,11 +328,11 @@ key i = _Object . ix i
-- | An indexed Traversal into Object properties
--
--- >>> "{\"a\": 4, \"b\": 7}" ^@.. members
--- [("a",Number 4.0),("b",Number 7.0)]
+-- >>> Data.List.sort ("{\"a\": 4, \"b\": 7}" ^@.. members . _Number)
+-- [("a",4.0),("b",7.0)]
--
--- >>> "{\"a\": 4, \"b\": 7}" & members . _Number *~ 10
--- "{\"a\":40,\"b\":70}"
+-- >>> "{\"a\": 4}" & members . _Number *~ 10
+-- "{\"a\":40}"
members :: AsValue t => IndexedTraversal' Text t Value
members = _Object . itraversed
{-# INLINE members #-}
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment