@@ -425,6 +425,9 @@ instance TH.Lift Value where
425 where a' = V.toList a
425 where a' = V.toList a
426 lift (Object o) = [| Object (H.fromList . map (first pack) $ o') |]
426 lift (Object o) = [| Object (H.fromList . map (first pack) $ o') |]
427 where o' = map (first unpack) . H.toList $ o
427 where o' = map (first unpack) . H.toList $ o
428+#if MIN_VERSION_template_haskell(2,16,0)
429+ liftTyped = TH.unsafeTExpCoerce . TH.lift
429-- | The empty array.
432-- | The empty array.
430emptyArray :: Value
433emptyArray :: Value