diff options
| author |   Sergei Trofimovich <slyfox@gentoo.org> | 2020-10-24 19:25:52 +0100 |
|---|---|---|
| committer | Sergei Trofimovich <slyfox@gentoo.org> | 2020-10-24 19:25:52 +0100 |
| commit | 1e054f143ba3398f45af457525cd6a9a11c77d14 (patch) | |
| tree | c187db49b9f529841e947cc58ca430eebb84cb58 /dev-haskell/language-haskell-extract | |
| parent | games-emulation/dolphin: add USE=vulkan (diff) | |
| download | gentoo-1e054f143ba3398f45af457525cd6a9a11c77d14.tar.gz gentoo-1e054f143ba3398f45af457525cd6a9a11c77d14.tar.bz2 gentoo-1e054f143ba3398f45af457525cd6a9a11c77d14.zip | |
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>
Diffstat (limited to 'dev-haskell/language-haskell-extract')
| -rw-r--r-- | dev-haskell/language-haskell-extract/files/language-haskell-extract-0.2.4-ghc-8.10.patch | 20 |
1 files changed, 20 insertions, 0 deletions
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 |