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
