From d2ee4305d38042c95252e71d4c0abe130b3babdb Mon Sep 17 00:00:00 2001 From: Matthew Pickering <matthewtpickering@gmail.com> Date: Tue, 26 May 2020 10:57:02 +0100 Subject: [PATCH] Adapt for changes to liftTyped --- Data/Text.hs | 4 +++- Data/Text/Lazy.hs | 4 +++- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/Data/Text.hs b/Data/Text.hs index 8b32b02c..972a8e09 100644 --- a/Data/Text.hs +++ b/Data/Text.hs @@ -430,7 +430,9 @@ instance Data Text where -- @since 1.2.4.0 instance TH.Lift Text where lift = TH.appE (TH.varE 'pack) . TH.stringE . unpack -#if MIN_VERSION_template_haskell(2,16,0) +#if MIN_VERSION_template_haskell(2,17,0) + liftTyped = TH.unsafeCodeCoerce . TH.lift +#elif MIN_VERSION_template_haskell(2,16,0) liftTyped = TH.unsafeTExpCoerce . TH.lift #endif diff --git a/Data/Text/Lazy.hs b/Data/Text/Lazy.hs index be893c4c..e1aa1309 100644 --- a/Data/Text/Lazy.hs +++ b/Data/Text/Lazy.hs @@ -415,7 +415,9 @@ instance Data Text where -- @since 1.2.4.0 instance TH.Lift Text where lift = TH.appE (TH.varE 'pack) . TH.stringE . unpack -#if MIN_VERSION_template_haskell(2,16,0) +#if MIN_VERSION_template_haskell(2,17,0) + liftTyped = TH.unsafeCodeCoerce . TH.lift +#elif MIN_VERSION_template_haskell(2,16,0) liftTyped = TH.unsafeTExpCoerce . TH.lift #endif -- GitLab