commit:     1e054f143ba3398f45af457525cd6a9a11c77d14
Author:     Sergei Trofimovich <slyfox <AT> gentoo <DOT> org>
AuthorDate: Sat Oct 24 18:25:52 2020 +0000
Commit:     Sergei Trofimovich <slyfox <AT> gentoo <DOT> org>
CommitDate: Sat Oct 24 18:25:52 2020 +0000
URL:        https://gitweb.gentoo.org/repo/gentoo.git/commit/?id=1e054f14

dev-haskell/language-haskell-extract: add forgotten patches

Reported-by: Agostino Sarubbo
Closes: https://bugs.gentoo.org/751055
Package-Manager: Portage-3.0.8, Repoman-3.0.2
Signed-off-by: Sergei Trofimovich <slyfox <AT> gentoo.org>

 .../language-haskell-extract-0.2.4-ghc-8.10.patch    | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

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
new file mode 100644
index 00000000000..0a8dfb93fca
--- /dev/null
+++ 
b/dev-haskell/language-haskell-extract/files/language-haskell-extract-0.2.4-ghc-8.10.patch
@@ -0,0 +1,20 @@
+diff --git a/src/Language/Haskell/Extract.hs b/src/Language/Haskell/Extract.hs
+index 3e8958b..43dfe04 100644
+--- a/src/Language/Haskell/Extract.hs
++++ b/src/Language/Haskell/Extract.hs
+@@ -1,3 +1,4 @@
++{-# LANGUAGE CPP #-}
+ module Language.Haskell.Extract (
+   functionExtractor,
+   functionExtractorMap,
+@@ -25,5 +26,9 @@ extractAllFunctions pattern =
+ functionExtractor :: String -> ExpQ
+ functionExtractor pattern =
+   do functions <- extractAllFunctions pattern
+-     let makePair n = TupE [ LitE $ StringL n , VarE $ mkName n]
++     let makePair n = TupE
++#if MIN_VERSION_template_haskell(2,16,0)
++                           $ map Just
++#endif
++                           [ LitE $ StringL n , VarE $ mkName n]
+      return $ ListE $ map makePair functions

Reply via email to