@@ -257,8 +257,10 @@ searchExpectSource src expected = do
257 value `shouldBe` expected
257 value `shouldBe` expected
259data BulkTest = BulkTest { name :: Text } deriving (Eq, Generic, Show)
259data BulkTest = BulkTest { name :: Text } deriving (Eq, Generic, Show)
260−instance FromJSON BulkTest
260+instance FromJSON BulkTest where
261+ parseJSON = genericParseJSON defaultOptions
261−instance ToJSON BulkTest
262+instance ToJSON BulkTest where
263+ toJSON = genericToJSON defaultOptions
263noDuplicates :: Eq a => [a] -> Bool
265noDuplicates :: Eq a => [a] -> Bool
264noDuplicates xs = nub xs == xs
266noDuplicates xs = nub xs == xs