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