We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 9e5e0ef commit 073b7c0Copy full SHA for 073b7c0
tests/UnitTests.hs
@@ -344,10 +344,10 @@ fromJSONKeyAssertions =
344
[ assertIsCoerce "Text" (fromJSONKey :: FromJSONKeyFunction Text)
345
, assertIsCoerce "Tagged Int Text" (fromJSONKey :: FromJSONKeyFunction (Tagged Int Text))
346
, assertIsCoerce "MyText" (fromJSONKey :: FromJSONKeyFunction MyText)
347
- , assertIsCoerce "Const Text" (fromJSONKey :: FromJSONKeyFunction (Const Text ()))
348
349
#if __GLASGOW_HASKELL__ >= 710
350
, assertIsCoerce' "MyText'" (fromJSONKey :: FromJSONKeyFunction MyText')
+ , assertIsCoerce "Const Text" (fromJSONKey :: FromJSONKeyFunction (Const Text ()))
351
#endif
352
]
353
where
0 commit comments