Fix deprecations.

robrix · robrix · commit 73eb76b6a4c4 · 2022-04-14T14:18:54.000-04:00
diff --git a/semantic/test/Data/Semigroup/App/Spec.hs b/semantic/test/Data/Semigroup/App/Spec.hs
@@ -17,10 +17,10 @@ merge = AppMerge <$> Gen.maybe (Gen.string (Range.linear 0 10) Gen.ascii)
 testTree :: Tasty.TestTree
 testTree = Tasty.testGroup "Data.Semigroup.App"
   [ Tasty.testGroup "App"
-    [ Tasty.testProperty "is associative" (associative (<>) app)
+    [ Tasty.testPropertyNamed "is associative" "App_is_associative" (associative (<>) app)
     ]
   , Tasty.testGroup "AppMerge"
-    [ Tasty.testProperty "is associative" (associative (<>) merge)
-    , Tasty.testProperty "is monoidal" (monoidal merge)
+    [ Tasty.testPropertyNamed "is associative" "AppMerge_is_associative" (associative (<>) merge)
+    , Tasty.testPropertyNamed "is monoidal" "AppMerge_is_monoidal" (monoidal merge)
     ]
   ]

Original file line number	Diff line number	Diff line change
`@@ -17,10 +17,10 @@ merge = AppMerge <$> Gen.maybe (Gen.string (Range.linear 0 10) Gen.ascii)`
`17`	`17`	`testTree :: Tasty.TestTree`
`18`	`18`	`testTree = Tasty.testGroup "Data.Semigroup.App"`
`19`	`19`	`[ Tasty.testGroup "App"`
`20`		`- [ Tasty.testProperty "is associative" (associative (<>) app)`
	`20`	`+ [ Tasty.testPropertyNamed "is associative" "App_is_associative" (associative (<>) app)`
`21`	`21`	`]`
`22`	`22`	`, Tasty.testGroup "AppMerge"`
`23`		`- [ Tasty.testProperty "is associative" (associative (<>) merge)`
`24`		`- , Tasty.testProperty "is monoidal" (monoidal merge)`
	`23`	`+ [ Tasty.testPropertyNamed "is associative" "AppMerge_is_associative" (associative (<>) merge)`
	`24`	`+ , Tasty.testPropertyNamed "is monoidal" "AppMerge_is_monoidal" (monoidal merge)`
`25`	`25`	`]`
`26`	`26`	`]`