Implement liftTyped in the Lift Value instance
This is needed to avoid a warning when compiling with
`template-haskell-2.16.*` (GHC 8.10.*).
commit9caeea816380e89f70e27a83bbb0aec8b1da9cdd
authorRyan Scott <ryan.gl.scott@gmail.com>
dateThu 26 Mar 2020, 10:02 (7 years ago)
parentfbd5c57
Data/Aeson/Types/Internal.hs+3
@@ -425,6 +425,9 @@ instance TH.Lift Value where
425425 where a' = V.toList a
426426 lift (Object o) = [| Object (H.fromList . map (first pack) $ o') |]
427427 where o' = map (first unpack) . H.toList $ o
428+#if MIN_VERSION_template_haskell(2,16,0)
429+ liftTyped = TH.unsafeTExpCoerce . TH.lift
430+#endif
428431
429432-- | The empty array.
430433emptyArray :: Value