[gentoo-commits] repo/gentoo:master commit in: dev-haskell/lens-family-th/files/

[gentoo-commits] repo/gentoo:master commit in: dev-haskell/lens-family-th/files/

[Sergei Trofimovich]

commit:     0790140e3489a48aaacc8f824554823e5d34fe3a
Author:     Michael Mair-Keimberger <m.mairkeimberger <AT> gmail <DOT> com>
AuthorDate: Sun Nov  8 19:01:46 2020 +0000
Commit:     Sergei Trofimovich <slyfox <AT> gentoo <DOT> org>
CommitDate: Mon Nov  9 07:32:33 2020 +0000
URL:        https://gitweb.gentoo.org/repo/gentoo.git/commit/?id=0790140e

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 <AT> gmail.com>
Closes: https://github.com/gentoo/gentoo/pull/18190
Signed-off-by: Sergei Trofimovich <slyfox <AT> gentoo.org>

 .../files/lens-family-th-0.4.1.0-ghc-8.patch       | 40 ----------------------
 1 file changed, 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 06be29a8131..00000000000
--- 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