@@ -410,21 +410,21 @@ tests = testGroup "properties" [
410410 , testProperty "ObjectWithSingleField unary" (toParseJSON1 thSomeTypeLiftParseJSONObjectWithSingleField thSomeTypeLiftToJSONObjectWithSingleField)
411411
412412 ]
413− , testGroup "Approx" [
414− testProperty "string" (isString . thApproxToJSONUnwrap)
415− , testProperty "ObjectWithSingleField" (isObjectWithSingleField . thApproxToJSONDefault)
416− , testGroup "roundTrip" [
417− testProperty "string" (toParseJSON thApproxParseJSONUnwrap thApproxToJSONUnwrap)
418− , testProperty "ObjectWithSingleField" (toParseJSON thApproxParseJSONDefault thApproxToJSONDefault)
419− ]
413+ ]
414+ , testGroup "Approx" [
415+ testProperty "string" (isString . thApproxToJSONUnwrap)
416+ , testProperty "ObjectWithSingleField" (isObjectWithSingleField . thApproxToJSONDefault)
417+ , testGroup "roundTrip" [
418+ testProperty "string" (toParseJSON thApproxParseJSONUnwrap thApproxToJSONUnwrap)
419+ , testProperty "ObjectWithSingleField" (toParseJSON thApproxParseJSONDefault thApproxToJSONDefault)
420420 ]
421− , testGroup "GADT" [
422− testProperty "string" (isString . thGADTToJSONUnwrap)
423− , testProperty "ObjectWithSingleField" (isObjectWithSingleField . thGADTToJSONDefault)
424− , testGroup "roundTrip" [
425− testProperty "string" (toParseJSON thGADTParseJSONUnwrap thGADTToJSONUnwrap)
426− , testProperty "ObjectWithSingleField" (toParseJSON thGADTParseJSONDefault thGADTToJSONDefault)
427− ]
421+ ]
422+ , testGroup "GADT" [
423+ testProperty "string" (isString . thGADTToJSONUnwrap)
424+ , testProperty "ObjectWithSingleField" (isObjectWithSingleField . thGADTToJSONDefault)
425+ , testGroup "roundTrip" [
426+ testProperty "string" (toParseJSON thGADTParseJSONUnwrap thGADTToJSONUnwrap)
427+ , testProperty "ObjectWithSingleField" (toParseJSON thGADTParseJSONDefault thGADTToJSONDefault)
428428 ]
429429 ]
430430 ]