[Pkg-haskell-commits] [package-plan] 430/457: Unbreak hothasktags

[Joachim Breitner]

This is an automated email from the git hooks/post-receive script.

nomeata pushed a commit to branch master
in repository package-plan.

commit 753681f135f270c22608dab11d3f7639e2a2e04e
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Fri Mar 7 18:34:08 2014 +0000

    Unbreak hothasktags
---
 packages.txt                                       |  2 +-
 .../0.3.1/00-bump-haskell-src-exts-version         | 50 ++++++++++++++++++++++
 patches/hothasktags/0.3.1/series                   |  1 +
 3 files changed, 52 insertions(+), 1 deletion(-)

diff --git a/packages.txt b/packages.txt
index 6cb01be..51fa6e9 100644
--- a/packages.txt
+++ b/packages.txt
@@ -290,7 +290,7 @@ hoogle 4.2.23 notest
 hOpenPGP 1.2
 hopenpgp-tools 0.7 binary
 hostname 1.0
-hothasktags 0.3.1 binary broken, #730888
+hothasktags 0.3.1 binary
 hS3 0.5.7
 hs-bibutils 4.12
 hscolour 1.20.3
diff --git a/patches/hothasktags/0.3.1/00-bump-haskell-src-exts-version b/patches/hothasktags/0.3.1/00-bump-haskell-src-exts-version
new file mode 100644
index 0000000..c2c48e5
--- /dev/null
+++ b/patches/hothasktags/0.3.1/00-bump-haskell-src-exts-version
@@ -0,0 +1,50 @@
+Description: Fix compatibility with haskell-src-exts 1.14
+Author: Raúl Benencia <rul at kalgan.cc>
+--- a/Main.hs
++++ b/Main.hs
+@@ -39,7 +39,7 @@
+ 
+     extractPat (L.PVar _ name) = extractName name
+     extractPat (L.PApp _ _ pats) = concatMap extractPat pats
+-    extractPat (L.PTuple _ pats) = concatMap extractPat pats
++    extractPat (L.PTuple _ _ pats) = concatMap extractPat pats
+     extractPat (L.PList _ pats) = concatMap extractPat pats
+     extractPat (L.PParen _ pat) = extractPat pat
+     extractPat (L.PAsPat _ name pat) = extractName name ++ extractPat pat
+@@ -175,11 +175,12 @@
+ haskellSource :: FilePath -> IO String
+ haskellSource file = do
+     contents <- readFile file
+-    let needsCpp = maybe False (L.CPP `elem`) (L.readExtensions contents)
++    let needsCpp = maybe False ((L.EnableExtension L.CPP) `elem`) $ exts contents
+     if needsCpp
+         then CPP.runCpphs cppOpts file contents
+         else return contents
+     where
++    exts contents = fmap (\(_, exts') -> exts') $ L.readExtensions contents
+     cppOpts = CPP.defaultCpphsOptions { CPP.boolopts = CPP.defaultBoolOptions { CPP.hashline = False } }
+     
+ 
+@@ -198,7 +199,10 @@
+     where
+     mode filename = L.ParseMode {
+         L.parseFilename = filename,
+-        L.extensions = [L.MultiParamTypeClasses, L.ExistentialQuantification, L.FlexibleContexts],
++        L.baseLanguage = L.Haskell98,
++        L.extensions = [L.EnableExtension L.MultiParamTypeClasses,
++                        L.EnableExtension L.ExistentialQuantification,
++                        L.EnableExtension L.FlexibleContexts],
+         L.ignoreLanguagePragmas = False,
+         L.ignoreLinePragmas = False,
+         L.fixities = Nothing
+--- a/hothasktags.cabal
++++ b/hothasktags.cabal
+@@ -37,7 +37,7 @@
+         base == 4.*,
+         containers,
+         filepath,
+-        haskell-src-exts >= 1.11 && < 1.14,
++        haskell-src-exts >= 1.14 && < 1.15,
+         cpphs >= 1.11 && < 1.17
+     main-is: Main.hs
+     ghc-options: -W
diff --git a/patches/hothasktags/0.3.1/series b/patches/hothasktags/0.3.1/series
new file mode 100644
index 0000000..c0ee88b
--- /dev/null
+++ b/patches/hothasktags/0.3.1/series
@@ -0,0 +1 @@
+00-bump-haskell-src-exts-version

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-haskell/package-plan.git