Combine into TH.unsafeCodeCoerce.

Author: galenhuntington

Data/Aeson/Types/Internal.hs

@@ -427,7 +427,7 @@ instance TH.Lift Value where
     lift (Object o) = [| Object (H.fromList . map (first pack) $ o') |]
       where o' = map (first unpack) . H.toList $ o
 #if MIN_VERSION_template_haskell(2,17,0)
-    liftTyped = TH.Code . TH.unsafeTExpCoerce . TH.lift
+    liftTyped = TH.unsafeCodeCoerce . TH.lift
 #elif MIN_VERSION_template_haskell(2,16,0)
     liftTyped = TH.unsafeTExpCoerce . TH.lift
 #endif