@@ -1,5 +1,4 @@
11{-# LANGUAGE BangPatterns #-}
2−{-# LANGUAGE CPP #-}
32{-# LANGUAGE DataKinds #-}
43{-# LANGUAGE DeriveDataTypeable #-}
54{-# LANGUAGE DeriveGeneric #-}
@@ -1048,12 +1047,7 @@ instance Typeable scheme => TH.Lift (Url scheme) where
10481047 Url Https _ -> [t|Url 'Https|]
10491048 where
10501049 liftText t = TH.AppE (TH.VarE 'T.pack) <$> TH.lift (T.unpack t)
1051−
1052−#if MIN_VERSION_template_haskell(2,17,0)
10531050 liftTyped = TH.Code . TH.unsafeTExpCoerce . TH.lift
1054−#elif MIN_VERSION_template_haskell(2,16,0)
1055− liftTyped = TH.unsafeTExpCoerce . TH.lift
1056−#endif
10571051
10581052-- | Given host name, produce a 'Url' which has “http” as its scheme and
10591053-- empty path. This also sets port to @80@.