Try to spell it right

Dan Fithian · Dan Fithian · commit 9e5e0efebe0c · 2020-08-24T11:42:37.000-04:00
diff --git a/tests/PropertyKeys.hs b/tests/PropertyKeys.hs
@@ -38,5 +38,5 @@ keysTests =
     , testProperty "Version" $ roundTripKey (undefined :: Version)
     , testProperty "Lazy Text" $ roundTripKey (undefined :: LT.Text)
     , testProperty "UUID" $ roundTripKey UUID.nil
-    , testProperty "Const Text" $ roundTripKey (undefined :: Const T.Text)
+    , testProperty "Const Text" $ roundTripKey (undefined :: Const T.Text ())
     ]
diff --git a/tests/UnitTests.hs b/tests/UnitTests.hs
@@ -344,7 +344,7 @@ fromJSONKeyAssertions =
     [ assertIsCoerce  "Text"            (fromJSONKey :: FromJSONKeyFunction Text)
     , assertIsCoerce  "Tagged Int Text" (fromJSONKey :: FromJSONKeyFunction (Tagged Int Text))
     , assertIsCoerce  "MyText"          (fromJSONKey :: FromJSONKeyFunction MyText)
-    , assertIsCoerce  "Const Text"      (fromJSONKey :: FromJSONKeyFunction (Const Text))
+    , assertIsCoerce  "Const Text"      (fromJSONKey :: FromJSONKeyFunction (Const Text ()))
 
 #if __GLASGOW_HASKELL__ >= 710
     , assertIsCoerce' "MyText'"         (fromJSONKey :: FromJSONKeyFunction MyText')

Original file line number	Diff line number	Diff line change
`@@ -38,5 +38,5 @@ keysTests =`
`38`	`38`	`, testProperty "Version" $ roundTripKey (undefined :: Version)`
`39`	`39`	`, testProperty "Lazy Text" $ roundTripKey (undefined :: LT.Text)`
`40`	`40`	`, testProperty "UUID" $ roundTripKey UUID.nil`
`41`		`- , testProperty "Const Text" $ roundTripKey (undefined :: Const T.Text)`
	`41`	`+ , testProperty "Const Text" $ roundTripKey (undefined :: Const T.Text ())`
`42`	`42`	`]`