git.iko.soy/typeable/aeson
on master help sign in
Change a definition that reveals a bug in the generics support.
commit54c263a3e0656de99b9401f506a3552cbe5dfc1e authorBryan O'Sullivan <bos@serpentine.com> dateMon 19 Sep 2011, 17:43 (15 years ago) parentcb319ca
1 file changed+3−1
compare with master
unifiedsplit
tests/Properties.hs+3−1
tests/Properties.hs+3−1
@@ -60,7 +60,9 @@ data Foo = Foo {
6060 fooInt :: Int
6161 , fooDouble :: Double
6262 , fooTuple :: (String, Text, Int)
63− , fooMap :: Map.Map String Foo
63+ -- This definition causes an infinite loop in genericTo and genericFrom!
64+ -- , fooMap :: Map.Map String Foo
65+ , fooMap :: Map.Map String (Text,Int)
6466 } deriving (Show, Typeable, Data)
6567
6668instance Eq Foo where