a5e8d46 · typeable/req

git.iko.soy/typeable/req

on master help sign in

Eliminate CPP

a5e8d46Mark Karpov4 years ago

Network/HTTP/Req.hs−6

@@ -1,5 +1,4 @@

1{-# LANGUAGE BangPatterns #-}

2−{-# LANGUAGE CPP #-}

3{-# LANGUAGE DataKinds #-}

2{-# LANGUAGE DataKinds #-}

4{-# LANGUAGE DeriveDataTypeable #-}

3{-# LANGUAGE DeriveDataTypeable #-}

5{-# LANGUAGE DeriveGeneric #-}

4{-# LANGUAGE DeriveGeneric #-}

@@ -1048,12 +1047,7 @@ instance Typeable scheme => TH.Lift (Url scheme) where

1048 Url Https _ -> [t|Url 'Https|]

1047 Url Https _ -> [t|Url 'Https|]

1049 where

1048 where

1050 liftText t = TH.AppE (TH.VarE 'T.pack) <$> TH.lift (T.unpack t)

1049 liftText t = TH.AppE (TH.VarE 'T.pack) <$> TH.lift (T.unpack t)

1051−

1052−#if MIN_VERSION_template_haskell(2,17,0)

1053 liftTyped = TH.Code . TH.unsafeTExpCoerce . TH.lift

1050 liftTyped = TH.Code . TH.unsafeTExpCoerce . TH.lift

1054−#elif MIN_VERSION_template_haskell(2,16,0)

1055− liftTyped = TH.unsafeTExpCoerce . TH.lift

1056−#endif

1057

1051

1058-- | Given host name, produce a 'Url' which has “http” as its scheme and

1052-- | Given host name, produce a 'Url' which has “http” as its scheme and

1059-- empty path. This also sets port to @80@.

1053-- empty path. This also sets port to @80@.