diff options
| author |   Michael Mair-Keimberger <m.mairkeimberger@gmail.com> | 2020-11-08 20:01:46 +0100 |
|---|---|---|
| committer |   Sergei Trofimovich <slyfox@gentoo.org> | 2020-11-09 07:32:33 +0000 |
| commit | 0790140e3489a48aaacc8f824554823e5d34fe3a (patch) | |
| tree | e90e58d16451b256f0fdf6454b727a18eee09ccd /dev-haskell | |
| parent | dev-libs/elfutils: remove unused patch (diff) | |
| download | gentoo-0790140e3489a48aaacc8f824554823e5d34fe3a.tar.gz gentoo-0790140e3489a48aaacc8f824554823e5d34fe3a.tar.bz2 gentoo-0790140e3489a48aaacc8f824554823e5d34fe3a.zip | |
dev-haskell/lens-family-th: remove unused patch(es)
Package-Manager: Portage-3.0.9, Repoman-3.0.2
Signed-off-by: Michael Mair-Keimberger <m.mairkeimberger@gmail.com>
Closes: https://github.com/gentoo/gentoo/pull/18190
Signed-off-by: Sergei Trofimovich <slyfox@gentoo.org>
Diffstat (limited to 'dev-haskell')
| -rw-r--r-- | dev-haskell/lens-family-th/files/lens-family-th-0.4.1.0-ghc-8.patch | 40 |
1 files changed, 0 insertions, 40 deletions
diff --git a/dev-haskell/lens-family-th/files/lens-family-th-0.4.1.0-ghc-8.patch b/dev-haskell/lens-family-th/files/lens-family-th-0.4.1.0-ghc-8.patch deleted file mode 100644 index 06be29a8131b..000000000000 --- a/dev-haskell/lens-family-th/files/lens-family-th-0.4.1.0-ghc-8.patch +++ /dev/null @@ -1,40 +0,0 @@ -diff --git a/Lens/Family/THCore.hs b/Lens/Family/THCore.hs -index d4f2740..2f53db6 100644 ---- a/Lens/Family/THCore.hs -+++ b/Lens/Family/THCore.hs -@@ -1 +1,2 @@ -+{-# LANGUAGE CPP #-} - {-# LANGUAGE TemplateHaskell #-} -@@ -52,4 +53,9 @@ extractLensTypeInfo datatype = do - return $ case i of -+#if MIN_VERSION_template_haskell(2,11,0) -+ TyConI (DataD _ n ts _ _ _) -> (n, ts) -+ TyConI (NewtypeD _ n ts _ _ _) -> (n, ts) -+#else - TyConI (DataD _ n ts _ _) -> (n, ts) - TyConI (NewtypeD _ n ts _ _) -> (n, ts) -+#endif - _ -> error $ "Can't derive Lens for: " ++ datatypeStr -@@ -63,2 +69,8 @@ extractConstructorFields datatype = do - return $ case i of -+#if MIN_VERSION_template_haskell(2,11,0) -+ TyConI (DataD _ _ _ _ [RecC _ fs] _) -> fs -+ TyConI (NewtypeD _ _ _ _ (RecC _ fs) _) -> fs -+ TyConI (DataD _ _ _ _ [_] _) -> -+ error $ "Can't derive Lens without record selectors: " ++ datatypeStr -+#else - TyConI (DataD _ _ _ [RecC _ fs] _) -> fs -@@ -67,2 +79,3 @@ extractConstructorFields datatype = do - error $ "Can't derive Lens without record selectors: " ++ datatypeStr -+#endif - TyConI NewtypeD{} -> -@@ -134,4 +147,9 @@ extractConstructorInfo datatype = do - return $ case i of -+#if MIN_VERSION_template_haskell(2,11,0) -+ TyConI (DataD _ _ _ _ fs _) -> fs -+ TyConI (NewtypeD _ _ _ _ f _) -> [f] -+#else - TyConI (DataD _ _ _ fs _) -> fs - TyConI (NewtypeD _ _ _ f _) -> [f] -+#endif - _ -> error $ "Can't derive traversal for: " ++ datatypeStr |