@@ -60,7 +60,9 @@ data Foo = Foo {
60 fooInt :: Int
60 fooInt :: Int
61 , fooDouble :: Double
61 , fooDouble :: Double
62 , fooTuple :: (String, Text, Int)
62 , fooTuple :: (String, Text, Int)
63+ -- This definition causes an infinite loop in genericTo and genericFrom!
63− , fooMap :: Map.Map String Foo
64+ -- , fooMap :: Map.Map String Foo
65+ , fooMap :: Map.Map String (Text,Int)
64 } deriving (Show, Typeable, Data)
66 } deriving (Show, Typeable, Data)
66instance Eq Foo where
68instance Eq Foo where