[Git][haskell-team/DHG_packages][master] haskell-derive: update to new upstream release, upload to unstable
Gianfranco Costamagna
gitlab at salsa.debian.org
Mon Jun 25 11:59:42 BST 2018
Gianfranco Costamagna pushed to branch master at Debian Haskell Group / DHG_packages
Commits:
06192d9c by Gianfranco Costamagna at 2018-06-25T12:59:06+02:00
haskell-derive: update to new upstream release, upload to unstable
- - - - -
3 changed files:
- p/haskell-derive/debian/changelog
- − p/haskell-derive/debian/patches/7e3ed185e1bd97ce02bc146e7abc3d78d76da2e2.patch
- p/haskell-derive/debian/patches/series
Changes:
=====================================
p/haskell-derive/debian/changelog
=====================================
--- a/p/haskell-derive/debian/changelog
+++ b/p/haskell-derive/debian/changelog
@@ -1,3 +1,9 @@
+haskell-derive (2.6.4-1) unstable; urgency=medium
+
+ * New upstream release, drop new derive patch
+
+ -- Gianfranco Costamagna <locutusofborg at debian.org> Mon, 25 Jun 2018 12:56:35 +0200
+
haskell-derive (2.6.3-3) unstable; urgency=medium
[ Clint Adams ]
=====================================
p/haskell-derive/debian/patches/7e3ed185e1bd97ce02bc146e7abc3d78d76da2e2.patch deleted
=====================================
--- a/p/haskell-derive/debian/patches/7e3ed185e1bd97ce02bc146e7abc3d78d76da2e2.patch
+++ /dev/null
@@ -1,138 +0,0 @@
-## Description: add some description
-## Origin/Author: add some origin or author
-## Bug: bug URL
-From 7e3ed185e1bd97ce02bc146e7abc3d78d76da2e2 Mon Sep 17 00:00:00 2001
-From: Igor Pashev <pashev.igor at gmail.com>
-Date: Fri, 15 Jun 2018 21:31:43 +0200
-Subject: [PATCH] Rewrite for haskell-src-exts == 1.20.*
-
-Ref. "Deriving Strategies"
-at https://github.com/haskell-suite/haskell-src-exts/commit/e478378fab3cde02cd0d88898caac021423973f3
----
- derive.cabal | 2 +-
- src/Data/Derive/DSL/HSE.hs | 4 ++--
- src/Data/Derive/UniplateDirect.hs | 4 ++--
- src/Derive/Derivation.hs | 10 ++++++----
- src/Derive/Test.hs | 2 +-
- src/Language/Haskell/Convert.hs | 4 ++--
- 6 files changed, 14 insertions(+), 12 deletions(-)
-
-diff --git a/derive.cabal b/derive.cabal
-index 011c030..951b836 100644
---- a/derive.cabal
-+++ b/derive.cabal
-@@ -38,7 +38,7 @@ library
- base == 4.*,
- filepath, syb, template-haskell, containers, pretty,
- directory, process, bytestring,
-- haskell-src-exts >= 1.18 && < 1.20,
-+ haskell-src-exts == 1.20.*,
- transformers >= 0.2,
- uniplate >= 1.5 && < 1.7
-
-diff --git a/src/Data/Derive/DSL/HSE.hs b/src/Data/Derive/DSL/HSE.hs
-index 28f8fbf..0acd170 100644
---- a/src/Data/Derive/DSL/HSE.hs
-+++ b/src/Data/Derive/DSL/HSE.hs
-@@ -23,7 +23,7 @@ list = Input "List" 1 [Ctor "Nil" 0 0, Ctor "Cons" 1 2]
-
- -- data Sample a = First | Second a a | Third a
- sample :: Input
--sample = DataDecl () (DataType ()) Nothing (DHApp () (DHead () $ name "Sample") (tyVarBind "a")) ctrs Nothing
-+sample = DataDecl () (DataType ()) Nothing (DHApp () (DHead () $ name "Sample") (tyVarBind "a")) ctrs []
- where
- ctrs = [ctr "First" 0, ctr "Second" 2, ctr "Third" 1]
- ctr s i = QualConDecl () Nothing Nothing $ ConDecl () (name s) $ replicate i $ tyVar "a"
-@@ -90,7 +90,7 @@ fromOutput (OList xs) = res
- f [] = fromConstr $ readCon dat "[]"
- f (x:xs) = fromConstrB (g x (f xs `asTypeOf` res)) $ readCon dat "(:)"
- dat = dataTypeOf res
--
-+
- g :: (Data a, Data b) => Output -> a -> b
- g x xs = r2 where r2 = if typeOf r2 == typeOf xs then coerce xs else fromOutput x
-
-diff --git a/src/Data/Derive/UniplateDirect.hs b/src/Data/Derive/UniplateDirect.hs
-index fb152ba..215aeeb 100644
---- a/src/Data/Derive/UniplateDirect.hs
-+++ b/src/Data/Derive/UniplateDirect.hs
-@@ -224,10 +224,10 @@ knownCtors = map (fromParseResult . fmap clearAnn . parseDecl)
-
- listCtor = DataDecl () (DataType ()) Nothing (DHApp () (DHead () $ Ident () "[]") (UnkindedVar () $ Ident () "a"))
- [QualConDecl () Nothing Nothing $ ConDecl () (Ident () "[]") []
-- ,QualConDecl () Nothing Nothing $ ConDecl () (Ident () "(:)") [tyVar "a", TyList () $ tyVar "a"]] Nothing
-+ ,QualConDecl () Nothing Nothing $ ConDecl () (Ident () "(:)") [tyVar "a", TyList () $ tyVar "a"]] []
-
- tupleDefn :: Int -> Decl ()
--tupleDefn n = DataDecl () (DataType ()) Nothing dhead [QualConDecl () Nothing Nothing $ ConDecl () (Ident () s) (map tyVar vars)] Nothing
-+tupleDefn n = DataDecl () (DataType ()) Nothing dhead [QualConDecl () Nothing Nothing $ ConDecl () (Ident () s) (map tyVar vars)] []
- where s = "(" ++ replicate (n - 1) ',' ++ ")"
- vars = ['v':show i | i <- [1..n]]
- dhead = foldr (flip (DHApp ())) (DHead () $ Ident () s) (map (UnkindedVar () . Ident ()) vars)
-diff --git a/src/Derive/Derivation.hs b/src/Derive/Derivation.hs
-index fd4dad7..6807ee1 100644
---- a/src/Derive/Derivation.hs
-+++ b/src/Derive/Derivation.hs
-@@ -31,15 +31,17 @@ wantDeriveAnnotation real mine = moduleDerives mine \\ moduleDerives real
-
-
- moduleDerives :: Module () -> [Type ()]
--moduleDerives = concatMap f . moduleDecls
-+moduleDerives = concatMap f . moduleDecls
- where
- f (DataDecl _ _ _ (fromDeclHead -> (name, vars)) _ deriv) = g name vars deriv
- f (GDataDecl _ _ _ (fromDeclHead -> (name, vars)) _ _ deriv) = g name vars deriv
-- f (DerivDecl _ _ (fromIParen -> IRule _ _ _ (fromInstHead -> (name, args)))) = [TyCon () name `tyApps` args]
-+ f (DerivDecl _ _ _ (fromIParen -> IRule _ _ _ (fromInstHead -> (name, args)))) = [TyCon () name `tyApps` args]
- f _ = []
-
-- g name vars deriv = [TyCon () a `tyApps` (b:bs) | IRule _ _ _ (fromInstHead -> (a,bs)) <- map fromIParen $ maybe [] (\(Deriving _ xs) -> xs) deriv]
-+ g name vars deriv = [TyCon () a `tyApps` (b:bs) | IRule _ _ _ (fromInstHead -> (a,bs)) <- map fromIParen $ f deriv]
- where b = TyCon () (UnQual () name) `tyApps` map (tyVar . prettyPrint) vars
-+ f [Deriving _ _ xs] = xs
-+ f _ = []
-
-
- ---------------------------------------------------------------------
-@@ -85,7 +87,7 @@ writeDerive :: FilePath -> ModuleName () -> [Flag] -> [String] -> IO ()
- writeDerive file modu flags xs = do
- -- force the output first, ensure that we don't crash half way through
- () <- length (concat xs) `seq` return ()
--
-+
- let append = Append `elem` flags
- let output = [x | Output x <- flags]
-
-diff --git a/src/Derive/Test.hs b/src/Derive/Test.hs
-index 794f71d..e8bf2c0 100644
---- a/src/Derive/Test.hs
-+++ b/src/Derive/Test.hs
-@@ -34,7 +34,7 @@ listType = DataDecl () (DataType ()) Nothing (DHApp () (DHead () (Ident () "[]")
- ,QualConDecl () Nothing Nothing (ConDecl () (Ident () "Cons")
- [TyVar () (Ident () "a")
- ,TyApp () (TyCon () (UnQual () (Ident () "List"))) (TyVar () (Ident () "a"))])]
-- Nothing
-+ []
-
-
- -- test each derivation
-diff --git a/src/Language/Haskell/Convert.hs b/src/Language/Haskell/Convert.hs
-index 3724555..6438669 100644
---- a/src/Language/Haskell/Convert.hs
-+++ b/src/Language/Haskell/Convert.hs
-@@ -44,13 +44,13 @@ instance Convert TH.Dec (HS.Decl ()) where
- NewtypeD cxt n vs _ con ds -> f (NewType ()) cxt n vs [con] ds
- where
- f :: DataOrNew () -> Cxt -> TH.Name -> [TyVarBndr] -> [Con] -> unused -> HS.Decl ()
-- f t cxt n vs con _ = DataDecl () t (Just $ c cxt) (dh (c n) (c vs)) (c con) Nothing
-+ f t cxt n vs con _ = DataDecl () t (Just $ c cxt) (dh (c n) (c vs)) (c con) []
- #else
- DataD cxt n vs con ds -> f (DataType ()) cxt n vs con ds
- NewtypeD cxt n vs con ds -> f (NewType ()) cxt n vs [con] ds
- where
- f :: DataOrNew () -> Cxt -> TH.Name -> [TyVarBndr] -> [Con] -> [TH.Name] -> HS.Decl ()
-- f t cxt n vs con ds = DataDecl () t (Just $ c cxt) (dh (c n) (c vs)) (c con) Nothing
-+ f t cxt n vs con ds = DataDecl () t (Just $ c cxt) (dh (c n) (c vs)) (c con) []
- #endif
-
- dh name [] = DHead () name
=====================================
p/haskell-derive/debian/patches/series
=====================================
--- a/p/haskell-derive/debian/patches/series
+++ b/p/haskell-derive/debian/patches/series
@@ -1,2 +1 @@
man-page.diff
-7e3ed185e1bd97ce02bc146e7abc3d78d76da2e2.patch
View it on GitLab: https://salsa.debian.org/haskell-team/DHG_packages/commit/06192d9c39d2760b570675682b3561699445d3b3
--
View it on GitLab: https://salsa.debian.org/haskell-team/DHG_packages/commit/06192d9c39d2760b570675682b3561699445d3b3
You're receiving this email because of your account on salsa.debian.org.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://alioth-lists.debian.net/pipermail/pkg-haskell-commits/attachments/20180625/ae1f2b75/attachment-0001.html>
More information about the Pkg-haskell-commits
mailing list