Gentoo Archives: gentoo-commits

From: Sergei Trofimovich <slyfox@g.o>
To: gentoo-commits@l.g.o
Subject: [gentoo-commits] repo/gentoo:master commit in: dev-haskell/language-haskell-extract/files/
Date: Sat, 24 Oct 2020 18:26:05
Message-Id: 1603563952.1e054f143ba3398f45af457525cd6a9a11c77d14.slyfox@gentoo
1 commit: 1e054f143ba3398f45af457525cd6a9a11c77d14
2 Author: Sergei Trofimovich <slyfox <AT> gentoo <DOT> org>
3 AuthorDate: Sat Oct 24 18:25:52 2020 +0000
4 Commit: Sergei Trofimovich <slyfox <AT> gentoo <DOT> org>
5 CommitDate: Sat Oct 24 18:25:52 2020 +0000
6 URL: https://gitweb.gentoo.org/repo/gentoo.git/commit/?id=1e054f14
7
8 dev-haskell/language-haskell-extract: add forgotten patches
9
10 Reported-by: Agostino Sarubbo
11 Closes: https://bugs.gentoo.org/751055
12 Package-Manager: Portage-3.0.8, Repoman-3.0.2
13 Signed-off-by: Sergei Trofimovich <slyfox <AT> gentoo.org>
14
15 .../language-haskell-extract-0.2.4-ghc-8.10.patch | 20 ++++++++++++++++++++
16 1 file changed, 20 insertions(+)
17
18 diff --git a/dev-haskell/language-haskell-extract/files/language-haskell-extract-0.2.4-ghc-8.10.patch b/dev-haskell/language-haskell-extract/files/language-haskell-extract-0.2.4-ghc-8.10.patch
19 new file mode 100644
20 index 00000000000..0a8dfb93fca
21 --- /dev/null
22 +++ b/dev-haskell/language-haskell-extract/files/language-haskell-extract-0.2.4-ghc-8.10.patch
23 @@ -0,0 +1,20 @@
24 +diff --git a/src/Language/Haskell/Extract.hs b/src/Language/Haskell/Extract.hs
25 +index 3e8958b..43dfe04 100644
26 +--- a/src/Language/Haskell/Extract.hs
27 ++++ b/src/Language/Haskell/Extract.hs
28 +@@ -1,3 +1,4 @@
29 ++{-# LANGUAGE CPP #-}
30 + module Language.Haskell.Extract (
31 + functionExtractor,
32 + functionExtractorMap,
33 +@@ -25,5 +26,9 @@ extractAllFunctions pattern =
34 + functionExtractor :: String -> ExpQ
35 + functionExtractor pattern =
36 + do functions <- extractAllFunctions pattern
37 +- let makePair n = TupE [ LitE $ StringL n , VarE $ mkName n]
38 ++ let makePair n = TupE
39 ++#if MIN_VERSION_template_haskell(2,16,0)
40 ++ $ map Just
41 ++#endif
42 ++ [ LitE $ StringL n , VarE $ mkName n]
43 + return $ ListE $ map makePair functions