diff options
author | V3n3RiX <venerix@redcorelinux.org> | 2018-07-14 20:57:42 +0100 |
---|---|---|
committer | V3n3RiX <venerix@redcorelinux.org> | 2018-07-14 20:57:42 +0100 |
commit | 1798c4aeca70ac8d0a243684d6a798fbc65735f8 (patch) | |
tree | e48e19cb6fa03de18e1c63e1a93371b7ebc4eb56 /dev-haskell/lens-family-th/files | |
parent | d87262dd706fec50cd150aab3e93883b6337466d (diff) |
gentoo resync : 14.07.2018
Diffstat (limited to 'dev-haskell/lens-family-th/files')
-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 |