Commits

Bryan O'Sullivan committed d2b8c90

Change a definition that reveals a bug in the generics support.

  • Participants
  • Parent commits 6916ea8

Comments (0)

Files changed (1)

File tests/Properties.hs

       fooInt :: Int
     , fooDouble :: Double
     , fooTuple :: (String, Text, Int)
-    , fooMap :: Map.Map String Foo
+    -- This definition causes an infinite loop in genericTo and genericFrom!
+    -- , fooMap :: Map.Map String Foo
+    , fooMap :: Map.Map String (Text,Int)
     } deriving (Show, Typeable, Data)
 
 instance Eq Foo where