Commit b52d9457 authored by Clint Adams's avatar Clint Adams
Browse files

hgettext: Upgrading from 0.1.30 to 0.1.31.0

parent fb8628f1
Loading
Loading
Loading
Loading
+6 −0
Original line number Diff line number Diff line
haskell-hgettext (0.1.31.0-1) unstable; urgency=medium

  * New upstream release

 -- Clint Adams <clint@debian.org>  Sun, 15 Apr 2018 11:07:05 -0400

haskell-hgettext (0.1.30-16) unstable; urgency=medium

  [ Ilias Tsitsimpis ]
+5 −2
Original line number Diff line number Diff line
@@ -10,10 +10,13 @@ Build-Depends:
 ghc (>= 8),
 ghc-prof,
 haskell-devscripts (>= 0.13),
 libghc-setlocale-dev,
 libghc-setlocale-dev (>= 0.0.3),
 libghc-setlocale-dev (<< 1.1),
 libghc-setlocale-prof,
 libghc-src-exts-dev (>= 1.18),
 libghc-uniplate-dev,
 libghc-src-exts-dev (<< 1.21),
 libghc-uniplate-dev (>= 1.6.12),
 libghc-uniplate-dev (<< 1.7),
Build-Depends-Indep:
 ghc-doc,
 libghc-setlocale-doc,
+0 −20
Original line number Diff line number Diff line
--- a/src/hgettext.hs
+++ b/src/hgettext.hs
@@ -49,8 +49,15 @@
     where header = "Usage: hgettext [OPTION] [INPUTFILE] ..."
 
 
-toTranslate :: String -> H.ParseResult H.Module -> [(Int, String)]
-toTranslate f (H.ParseOk z) = nub [ (0, s) | H.App (H.Var (H.UnQual (H.Ident x))) (H.Lit (H.String s)) <- universeBi z, x == f]
+toTranslate :: String -> H.ParseResult (H.Module H.SrcSpanInfo) -> [(Int, String)]
+toTranslate f (H.ParseOk z) = nub [ (0, s)
+                                  | H.App _
+                                        (H.Var _
+                                            (H.UnQual _
+                                                (H.Ident  _ x)))
+                                        (H.Lit _
+                                            (H.String _ s _slit)) <- universeBi z :: [H.Exp H.SrcSpanInfo]
+                                  , x == f]
 toTranslate _ _ = []
 
 -- Create list of messages from a single file
+0 −22
Original line number Diff line number Diff line
Description: Remove unnecessary use of the TemplateHaskell extension
 The patch is not submitted upstream, as the change is very
 simple. The bug has been reported upstream, though.
Bug: https://github.com/vasylp/hgettext/issues/9
Origin: commit:586e11c10910538ae754e25e3f426f82fd0770b9
Forwarded: no
Author: Joachim Breitner <nomeata@debian.org>
Reviewed-by: Sven Bartscher <sven.bartscher@weltraumschlangen.de>
Last-Update: 2015-12-27

Index: hgettext-0.1.30/hgettext.cabal
===================================================================
--- hgettext-0.1.30.orig/hgettext.cabal	2015-06-15 22:26:25.801060283 +0200
+++ hgettext-0.1.30/hgettext.cabal	2015-06-15 22:27:57.632493244 +0200
@@ -24,7 +24,6 @@
 
 Executable hgettext
         Main-Is:                hgettext.hs
-        Extensions:             TemplateHaskell
         Hs-Source-Dirs:         src        
         Build-Depends:          base>=3.0.3.0 && <5, uniplate, haskell-src-exts
         Other-Modules:          Paths_hgettext
+0 −2
Original line number Diff line number Diff line
remove-useless-TemplateHaskell
newer-src-exts