From 1e054f143ba3398f45af457525cd6a9a11c77d14 Mon Sep 17 00:00:00 2001
From: Sergei Trofimovich <slyfox@gentoo.org>
Date: Sat, 24 Oct 2020 19:25:52 +0100
Subject: 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@gentoo.org>
---
 .../language-haskell-extract-0.2.4-ghc-8.10.patch    | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 dev-haskell/language-haskell-extract/files/language-haskell-extract-0.2.4-ghc-8.10.patch

(limited to 'dev-haskell/language-haskell-extract')

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 000000000000..0a8dfb93fcab
--- /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
-- 
cgit v1.2.3-65-gdbad