May 2016 - openSUSE Commits - openSUSE Mailing Lists

commit perl-MIME-tools for openSUSE:Factory
by root＠hilbert.suse.de 31 May '16

31 May '16

Hello community, here is the log from the commit of package perl-MIME-tools for openSUSE:Factory checked in at 2016-05-31 12:25:19 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-MIME-tools (Old) and /work/SRC/openSUSE:Factory/.perl-MIME-tools.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "perl-MIME-tools" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-MIME-tools/perl-MIME-tools.changes 2015-10-03 20:30:42.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-MIME-tools.new/perl-MIME-tools.changes 2016-05-31 12:25:20.000000000 +0200 @@ -1,0 +2,6 @@ +Mon May 30 13:42:42 UTC 2016 - bwiedemann(a)suse.com + +- Add MIME-tools-5.507-rt113887.patch from fedora + to fix test failure with new MailTools + +------------------------------------------------------------------- New: ---- MIME-tools-5.507-rt113887.patch ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-MIME-tools.spec ++++++ --- /var/tmp/diff_new_pack.NZVDFf/_old 2016-05-31 12:25:21.000000000 +0200 +++ /var/tmp/diff_new_pack.NZVDFf/_new 2016-05-31 12:25:21.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-MIME-tools # -# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -26,6 +26,7 @@ Url: http://search.cpan.org/dist/MIME-tools/ Source0: http://www.cpan.org/authors/id/D/DS/DSKOLL/%{cpan_name}-%{version}.tar.gz Source1: cpanspec.yml +Patch0: MIME-tools-5.507-rt113887.patch BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl @@ -47,6 +48,7 @@ %prep %setup -q -n %{cpan_name}-%{version} +%patch0 -p1 find . -type f -print0 | xargs -0 chmod 644 %build ++++++ MIME-tools-5.507-rt113887.patch ++++++ diff --git a/MANIFEST b/MANIFEST index c2a49ad..6cf638f 100644 --- a/MANIFEST +++ b/MANIFEST @@ -155,6 +155,7 @@ testmsgs/german.msg testmsgs/german.ref testmsgs/hdr-fakeout.msg testmsgs/hdr-fakeout.ref +testmsgs/hdr-fakeout-newmailtools-ref testmsgs/malformed-content-type-zip.msg testmsgs/multi-2evil.msg testmsgs/multi-2evil.ref diff --git a/t/Ref.t b/t/Ref.t index b3fc985..d39d20b 100644 --- a/t/Ref.t +++ b/t/Ref.t @@ -39,6 +39,10 @@ foreach my $refpath (@refpaths) { my $msgpath = $refpath; $msgpath =~ s/\.ref$/.msg/; # print STDERR " $msgpath\n"; + ### HACK HACK HACK: MailTools behaviour has changed!!! + if ($msgpath eq 'testmsgs/hdr-fakeout.msg' && $::Mail::Header::VERSION > 2.14) { + $refpath = 'testmsgs/hdr-fakeout-newmailtools-ref'; + } ### Get reference, as ref to array: my $ref = read_ref($refpath); if ($ref->{Parser}{Message}) { diff --git a/testmsgs/hdr-fakeout-newmailtools-ref b/testmsgs/hdr-fakeout-newmailtools-ref new file mode 100644 index 0000000..b6e9329 --- /dev/null +++ b/testmsgs/hdr-fakeout-newmailtools-ref @@ -0,0 +1,16 @@ +{ + "Parser" => { + "Message" => "testmsgs/hdr-fakeout.msg", + "ExtractNested" => 1, + "OutputToCore" => "0", + "Name" => "anonymous" + }, + "Msg" => { + "Subject" => "test message 1", + "Type" => "text/plain", + "To" => "\"Russell P. Sutherland\" <russ\(a)quist.on.ca>", + "From" => "\"Russell P. Sutherland\" <russ\(a)quist.on.ca>", + "Encoding" => "7bit" + } +} +

1 0

commit gtkam for openSUSE:Factory
by root＠hilbert.suse.de 31 May '16

31 May '16

Hello community, here is the log from the commit of package gtkam for openSUSE:Factory checked in at 2016-05-31 12:25:17 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/gtkam (Old) and /work/SRC/openSUSE:Factory/.gtkam.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "gtkam" Changes: -------- --- /work/SRC/openSUSE:Factory/gtkam/gtkam.changes 2013-12-18 07:51:09.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.gtkam.new/gtkam.changes 2016-05-31 12:25:18.000000000 +0200 @@ -1,0 +2,8 @@ +Fri May 27 16:15:56 UTC 2016 - meissner(a)suse.com + +- updated to 1.0 + - bugfixes + - translation updates +- added gpg signature and keyring + +------------------------------------------------------------------- Old: ---- gtkam-0.2.0.tar.bz2 New: ---- gtkam-1.0.tar.bz2 gtkam-1.0.tar.bz2.asc gtkam.keyring ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ gtkam.spec ++++++ --- /var/tmp/diff_new_pack.lKmLuI/_old 2016-05-31 12:25:19.000000000 +0200 +++ /var/tmp/diff_new_pack.lKmLuI/_new 2016-05-31 12:25:19.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package gtkam # -# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -27,9 +27,11 @@ Summary: A GTK Digital Camera Tool License: GPL-2.0+ Group: Hardware/Camera -Version: 0.2.0 +Version: 1.0 Release: 0 Source: %{name}-%{version}.tar.bz2 +Source1: %{name}-%{version}.tar.bz2.asc +Source2: %{name}.keyring BuildRoot: %{_tmppath}/%{name}-%{version}-build Url: http://gphoto.org Requires: %{name}-lang = %{version} @@ -44,15 +46,7 @@ Requires: %{name} = %{version} %description doc -Documentation for gtkcam. - - - -Authors: --------- - Scott Fritzinger <scottf(a)unr.edu> - Philippe Marzouk <bullmali(a)afribone.net.ml> - Colin Marquardt <colin(a)marquardt-home.de> +Documentation for gtkam. %lang_package %prep ++++++ gtkam-0.2.0.tar.bz2 -> gtkam-1.0.tar.bz2 ++++++ ++++ 107938 lines of diff (skipped)

1 0

commit python-psutil for openSUSE:Factory
by root＠hilbert.suse.de 31 May '16

31 May '16

Hello community, here is the log from the commit of package python-psutil for openSUSE:Factory checked in at 2016-05-31 12:25:16 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/python-psutil (Old) and /work/SRC/openSUSE:Factory/.python-psutil.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "python-psutil" Changes: -------- --- /work/SRC/openSUSE:Factory/python-psutil/python-psutil.changes 2016-03-18 21:41:32.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.python-psutil.new/python-psutil.changes 2016-05-31 12:25:17.000000000 +0200 @@ -1,0 +2,23 @@ +Mon May 30 07:28:01 UTC 2016 - tbechtold(a)suse.com + +- Update Source url + +------------------------------------------------------------------- +Sat May 28 11:34:45 UTC 2016 - michael(a)stroeder.com + +- update to version 4.2.0: + * Enhancements + + #795: [Windows] new APIs to deal with Windows services: + win_service_iter() and win_service_get(). + + #800: [Linux] psutil.virtual_memory() returns a new "shared" + memory field. + + #819: [Linux] speedup /proc parsing: - Process.ppid() is 20% + faster - Process.status() is 28% faster - Process.name() is 25% + faster - Process.num_threads is 20% faster on Python 3 + * Bug fixes + + #797: [Linux] net_if_stats() may raise OSError for certain NIC + cards. + + #813: Process.as_dict() should ignore extraneous attribute names + which gets attached to the Process instance. + +------------------------------------------------------------------- Old: ---- psutil-4.1.0.tar.gz New: ---- psutil-4.2.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ python-psutil.spec ++++++ --- /var/tmp/diff_new_pack.L9jEYF/_old 2016-05-31 12:25:18.000000000 +0200 +++ /var/tmp/diff_new_pack.L9jEYF/_new 2016-05-31 12:25:18.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package python-psutil # -# Copyright (c) 2014 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,17 +17,17 @@ Name: python-psutil -Version: 4.1.0 +Version: 4.2.0 Release: 0 Summary: A process utilities module for Python License: BSD-3-Clause Group: Development/Languages/Python Url: https://pypi.python.org/pypi/psutil/ -Source: https://pypi.python.org/packages/source/p/psutil/psutil-%{version}.tar.gz -BuildRequires: python-devel -BuildRequires: python-setuptools +Source: https://pypi.python.org/packages/a6/bf/5ce23dc9f50de662af3b4bf54812438c2986… BuildRequires: net-tools BuildRequires: procps +BuildRequires: python-devel +BuildRequires: python-setuptools Requires: net-tools Requires: procps BuildRoot: %{_tmppath}/%{name}-%{version}-build ++++++ psutil-4.1.0.tar.gz -> psutil-4.2.0.tar.gz ++++++ ++++ 2397 lines of diff (skipped)

1 0

commit instlux for openSUSE:Factory
by root＠hilbert.suse.de 31 May '16

31 May '16

Hello community, here is the log from the commit of package instlux for openSUSE:Factory checked in at 2016-05-31 12:25:14 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/instlux (Old) and /work/SRC/openSUSE:Factory/.instlux.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "instlux" Changes: -------- --- /work/SRC/openSUSE:Factory/instlux/instlux.changes 2015-08-23 17:40:48.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.instlux.new/instlux.changes 2016-05-31 12:25:15.000000000 +0200 @@ -1,0 +2,6 @@ +Mon May 30 12:05:09 UTC 2016 - belphegor(a)belbel.or.jp + +- adjusted labels 42.1 -> 42.2 +- prevent i586 install for openSUSE Leap 42.1 or later + +------------------------------------------------------------------- Old: ---- openSUSE42_1_LOCAL.exe openSUSE42_1_NET.exe New: ---- openSUSE42_2_LOCAL.exe openSUSE42_2_NET.exe ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ instlux.spec ++++++ --- /var/tmp/diff_new_pack.mazNcu/_old 2016-05-31 12:25:16.000000000 +0200 +++ /var/tmp/diff_new_pack.mazNcu/_new 2016-05-31 12:25:16.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package instlux # -# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -20,9 +20,9 @@ Summary: Windows openSUSE installer License: GPL-2.0+ Group: Metapackages -%define distroversion 42_1 +%define distroversion 42_2 Url: http://en.opensuse.org/Instlux -Version: 42.1_SVN62 +Version: 42.2_SVN62 Release: 0 AutoReqProv: off Recommends: instlux-net

1 0

commit libqt5-creator for openSUSE:Factory
by root＠hilbert.suse.de 31 May '16

31 May '16

Hello community, here is the log from the commit of package libqt5-creator for openSUSE:Factory checked in at 2016-05-31 12:25:12 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/libqt5-creator (Old) and /work/SRC/openSUSE:Factory/.libqt5-creator.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "libqt5-creator" Changes: -------- --- /work/SRC/openSUSE:Factory/libqt5-creator/libqt5-creator.changes 2016-05-30 09:56:24.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.libqt5-creator.new/libqt5-creator.changes 2016-05-31 12:25:14.000000000 +0200 @@ -1,0 +2,12 @@ +Mon May 30 07:50:04 UTC 2016 - alarrosa(a)suse.com + +- Enabled clangcodemodel plugin in SLE12 SP2 since it includes + a recent enough LLVM version. + +------------------------------------------------------------------- +Sat May 28 19:12:46 UTC 2016 - fvogt(a)suse.com + +- Add Recommends: libqt5-qttranslations + Without them, bundled translations are ignored + +------------------------------------------------------------------- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ libqt5-creator.spec ++++++ --- /var/tmp/diff_new_pack.pIxxhv/_old 2016-05-31 12:25:15.000000000 +0200 +++ /var/tmp/diff_new_pack.pIxxhv/_new 2016-05-31 12:25:15.000000000 +0200 @@ -42,9 +42,9 @@ BuildRequires: libqt5-qtscript-devel >= %{qt5_version} BuildRequires: libqt5-qttools-private-headers-devel >= %{qt5_version} BuildRequires: libqt5-qtx11extras-devel >= %{qt5_version} -# Disable the clangcodemodel plugin for OpenSUSE 13.2 and earlier and SLE12, which don't have LLVM >= 3.6. +# Enable the clangcodemodel plugin on OpenSUSE and SLE12-SP2 or newer, which have LLVM >= 3.6. %ifarch %arm %ix86 x86_64 -%if 0%{?is_opensuse} +%if 0%{?is_opensuse} || 0%{?sle_version} >= 120200 BuildRequires: llvm-clang-devel >= 3.6 %endif %endif @@ -57,6 +57,7 @@ Recommends: libqt5-qtbase-devel Recommends: libqt5-qtdeclarative-devel Recommends: libqt5-qtquick1-devel +Recommends: libqt5-qttranslations Suggests: git-core # Make sure to rebuild against latest Qt5 (using the last package in chain - libQt5Designer5) @@ -91,9 +92,9 @@ # https://bugzilla.opensuse.org/962650 sed -i s,libexec/qtcreator,%{_lib}/qtcreator/libexec,g src/plugins/coreplugin/icore.cpp -# Disable the clangcodemodel plugin for OpenSUSE 13.2 and earlier and SLE12, which don't have LLVM >= 3.6. +# Enable the clangcodemodel plugin on OpenSUSE and SLE12-SP2 or newer, which have LLVM >= 3.6. %ifarch %arm %ix86 x86_64 -%if 0%{?is_opensuse} +%if 0%{?is_opensuse} || 0%{?sle_version} >= 120200 opts="LLVM_INSTALL_DIR=%{_prefix}" %endif %endif

1 0

commit ghc-managed for openSUSE:Factory
by root＠hilbert.suse.de 31 May '16

31 May '16

Hello community, here is the log from the commit of package ghc-managed for openSUSE:Factory checked in at 2016-05-31 12:25:11 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-managed (Old) and /work/SRC/openSUSE:Factory/.ghc-managed.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-managed" Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-managed/ghc-managed.changes 2016-05-25 21:28:37.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-managed.new/ghc-managed.changes 2016-05-31 12:25:11.000000000 +0200 @@ -1,0 +2,5 @@ +Mon May 30 10:15:01 UTC 2016 - mimi.vx(a)gmail.com + +- update to 1.0.5 + +------------------------------------------------------------------- Old: ---- managed-1.0.4.tar.gz New: ---- managed-1.0.5.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-managed.spec ++++++ --- /var/tmp/diff_new_pack.8vMI6y/_old 2016-05-31 12:25:12.000000000 +0200 +++ /var/tmp/diff_new_pack.8vMI6y/_new 2016-05-31 12:25:12.000000000 +0200 @@ -18,7 +18,7 @@ %global pkg_name managed Name: ghc-managed -Version: 1.0.4 +Version: 1.0.5 Release: 0 Summary: A monad for managed values Group: System/Libraries ++++++ managed-1.0.4.tar.gz -> managed-1.0.5.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/managed-1.0.4/managed.cabal new/managed-1.0.5/managed.cabal --- old/managed-1.0.4/managed.cabal 2016-05-18 05:37:58.000000000 +0200 +++ new/managed-1.0.5/managed.cabal 2016-05-29 02:09:10.000000000 +0200 @@ -1,5 +1,5 @@ Name: managed -Version: 1.0.4 +Version: 1.0.5 Cabal-Version: >=1.8.0.2 Build-Type: Simple License: BSD3 @@ -7,6 +7,7 @@ Copyright: 2014 Gabriel Gonzalez Author: Gabriel Gonzalez Maintainer: Gabriel439(a)gmail.com +Tested-With: GHC == 7.6.3, GHC == 7.8.4, GHC == 7.10.2, GHC == 8.0.1 Bug-Reports: https://github.com/Gabriel439/Haskell-Managed-Library/issues Synopsis: A monad for managed values Description: In Haskell you very often acquire values using the @with...@ @@ -33,8 +34,8 @@ Hs-Source-Dirs: src Build-Depends: base >= 4.5 && < 5 , - transformers >= 0.4.0.0 && < 0.6 + transformers >= 0.2.0.0 && < 0.6 Exposed-Modules: Control.Monad.Managed, Control.Monad.Managed.Safe - GHC-Options: -O2 -Wall + GHC-Options: -Wall diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/managed-1.0.4/src/Control/Monad/Managed.hs new/managed-1.0.5/src/Control/Monad/Managed.hs --- old/managed-1.0.4/src/Control/Monad/Managed.hs 2016-03-28 00:14:05.000000000 +0200 +++ new/managed-1.0.5/src/Control/Monad/Managed.hs 2016-05-29 02:12:29.000000000 +0200 @@ -1,3 +1,4 @@ +{-# LANGUAGE CPP #-} {-# LANGUAGE RankNTypes #-} {-| An example Haskell program to copy data from one handle to another might @@ -106,13 +107,20 @@ module Control.Monad.IO.Class ) where -import Control.Applicative (Applicative(pure, (<*>)), liftA2) import Control.Monad.IO.Class (MonadIO(liftIO)) import Control.Monad.Trans.Class (lift) -import Data.Monoid (Monoid(mempty, mappend)) + +#if MIN_VERSION_base(4,8,0) +import Control.Applicative (liftA2) +#else +import Control.Applicative +import Data.Monoid +#endif import qualified Control.Monad.Trans.Cont as Cont +#if MIN_VERSION_transformers(0,4,0) import qualified Control.Monad.Trans.Except as Except +#endif import qualified Control.Monad.Trans.Identity as Identity import qualified Control.Monad.Trans.Maybe as Maybe import qualified Control.Monad.Trans.Reader as Reader @@ -211,8 +219,10 @@ instance MonadManaged m => MonadManaged (Cont.ContT r m) where using m = lift (using m) +#if MIN_VERSION_transformers(0,4,0) instance MonadManaged m => MonadManaged (Except.ExceptT e m) where using m = lift (using m) +#endif instance MonadManaged m => MonadManaged (Identity.IdentityT m) where using m = lift (using m)

1 0

commit pointful for openSUSE:Factory
by root＠hilbert.suse.de 31 May '16

31 May '16

Hello community, here is the log from the commit of package pointful for openSUSE:Factory checked in at 2016-05-31 12:25:09 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/pointful (Old) and /work/SRC/openSUSE:Factory/.pointful.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "pointful" Changes: -------- --- /work/SRC/openSUSE:Factory/pointful/pointful.changes 2016-05-29 03:14:00.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.pointful.new/pointful.changes 2016-05-31 12:25:10.000000000 +0200 @@ -1,0 +2,5 @@ +Mon May 30 10:02:35 UTC 2016 - mimi.vx(a)gmail.com + +- update to 1.0.8 + +------------------------------------------------------------------- Old: ---- pointful-1.0.7.tar.gz New: ---- pointful-1.0.8.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ pointful.spec ++++++ --- /var/tmp/diff_new_pack.CRdGJU/_old 2016-05-31 12:25:11.000000000 +0200 +++ /var/tmp/diff_new_pack.CRdGJU/_new 2016-05-31 12:25:11.000000000 +0200 @@ -18,7 +18,7 @@ %global pkg_name pointful Name: pointful -Version: 1.0.7 +Version: 1.0.8 Release: 0 Summary: Pointful refactoring tool Group: Development/Languages/Other ++++++ pointful-1.0.7.tar.gz -> pointful-1.0.8.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/pointful-1.0.7/Lambdabot/Pointful.hs new/pointful-1.0.8/Lambdabot/Pointful.hs --- old/pointful-1.0.7/Lambdabot/Pointful.hs 2015-12-22 23:47:12.000000000 +0100 +++ new/pointful-1.0.8/Lambdabot/Pointful.hs 2016-05-25 18:23:20.000000000 +0200 @@ -1,176 +1,272 @@ -{-# OPTIONS -fno-warn-missing-signatures #-} +{-# LANGUAGE ScopedTypeVariables #-} +{-# LANGUAGE ViewPatterns #-} -- Undo pointfree transformations. Plugin code derived from Pl.hs. module Lambdabot.Pointful (pointful) where -import Lambdabot.Parser (withParsed) +import Lambdabot.Parser (withParsed, prettyPrintInLine) +import Control.Monad.Reader import Control.Monad.State import Data.Functor.Identity (Identity) import Data.Generics +import qualified Data.Set as S import qualified Data.Map as M +import Data.List import Data.Maybe import Language.Haskell.Exts as Hs ---- Utilities ---- -extT' :: (Typeable a, Typeable b) => (a -> a) -> (b -> b) -> a -> a -extT' = extT -infixl `extT'` - unkLoc :: SrcLoc unkLoc = SrcLoc "<new>" 1 1 stabilize :: Eq a => (a -> a) -> a -> a stabilize f x = let x' = f x in if x' == x then x else stabilize f x' -namesIn :: Data a => a -> [Name] -namesIn h = everything (++) (mkQ [] (\x -> case x of UnQual name' -> [name']; _ -> [])) h - -pVarsIn :: Data a => a -> [Name] -pVarsIn h = everything (++) (mkQ [] (\x -> case x of PVar name' -> [name']; _ -> [])) h - -succName :: Name -> Name -succName (Ident s) = Ident . reverse . succAlpha . reverse $ s -succName (Symbol _ ) = error "Pointful plugin error: cannot determine successor for a Symbol" - -succAlpha :: String -> String -succAlpha ('z':xs) = 'a' : succAlpha xs -succAlpha (x :xs) = succ x : xs -succAlpha [] = "a" +-- varsBoundHere returns variables bound by top patterns or binders +varsBoundHere :: Data d => d -> S.Set Name +varsBoundHere (cast -> Just (PVar name)) = S.singleton name +varsBoundHere (cast -> Just (Match _ name _ _ _ _)) = S.singleton name +varsBoundHere (cast -> Just (PatBind _ pat _ _)) = varsBoundHere pat +varsBoundHere (cast -> Just (_ :: Exp)) = S.empty +varsBoundHere d = S.unions (gmapQ varsBoundHere d) + +-- note: the tempting idea of using a pattern synonym for the frequent +-- (cast -> Just _) patterns causes compiler crashes with ghc before +-- version 8; cf. https://ghc.haskell.org/trac/ghc/ticket/11336 + +foldFreeVars :: forall a d. Data d => (Name -> S.Set Name -> a) -> ([a] -> a) -> d -> a +foldFreeVars var sum e = runReader (go e) S.empty where + go :: forall d. Data d => d -> Reader (S.Set Name) a + go (cast -> Just (Var (UnQual name))) = + asks (var name) + go (cast -> Just (Lambda _ ps exp)) = + bind [varsBoundHere ps] $ go exp + go (cast -> Just (Let bs exp)) = + bind [varsBoundHere bs] $ collect [go bs, go exp] + go (cast -> Just (Alt _ pat exp bs)) = + bind [varsBoundHere pat, varsBoundHere bs] $ collect [go exp, go bs] + go (cast -> Just (PatBind _ pat exp bs)) = + bind [varsBoundHere pat, varsBoundHere bs] $ collect [go exp, go bs] + go (cast -> Just (Match _ _ ps _ exp bs)) = + bind [varsBoundHere ps, varsBoundHere bs] $ collect [go exp, go bs] + go d = collect (gmapQ go d) + + collect :: forall m. Monad m => [m a] -> m a + collect ms = sum `liftM` sequence ms + + bind :: forall a b. Ord a => [S.Set a] -> Reader (S.Set a) b -> Reader (S.Set a) b + bind ss = local (S.unions ss `S.union`) + +-- return free variables +freeVars :: Data d => d -> S.Set Name +freeVars = foldFreeVars (\name bv -> S.singleton name `S.difference` bv) S.unions + +-- return number of free occurrences of a variable +countOcc :: Data d => Name -> d -> Int +countOcc name = foldFreeVars var sum where + sum = foldl' (+) 0 + var name' bv = if name /= name' || name' `S.member` bv then 0 else 1 + +-- variable capture avoiding substitution +substAvoiding :: Data d => M.Map Name Exp -> S.Set Name -> d -> d +substAvoiding subst bv = base `extT` exp `extT` alt `extT` decl `extT` match where + base :: Data d => d -> d + base = gmapT (substAvoiding subst bv) + + exp e@(Var (UnQual name)) = + fromMaybe e (M.lookup name subst) + exp (Lambda sloc ps exp) = + let (subst', bv', ps') = renameBinds subst bv ps + in Lambda sloc ps' (substAvoiding subst' bv' exp) + exp (Let bs exp) = + let (subst', bv', bs') = renameBinds subst bv bs + in Let (substAvoiding subst' bv' bs') (substAvoiding subst' bv' exp) + exp d = base d + + alt (Alt sloc pat exp bs) = + let (subst1, bv1, pat') = renameBinds subst bv pat + (subst', bv', bs') = renameBinds subst1 bv1 bs + in Alt sloc pat' (substAvoiding subst' bv' exp) (substAvoiding subst' bv' bs') + + decl (PatBind sloc pat exp bs) = + let (subst', bv', bs') = renameBinds subst bv bs in + PatBind sloc pat (substAvoiding subst' bv' exp) (substAvoiding subst' bv' bs') + decl d = base d + + match (Match sloc name ps typ exp bs) = + let (subst1, bv1, ps') = renameBinds subst bv ps + (subst', bv', bs') = renameBinds subst1 bv1 bs + in Match sloc name ps' typ (substAvoiding subst' bv' exp) (substAvoiding subst' bv' bs') + +-- rename local binders (but not the nested expressions) +renameBinds :: Data d => M.Map Name Exp -> S.Set Name -> d -> (M.Map Name Exp, S.Set Name, d) +renameBinds subst bv d = (subst', bv', d') where + (d', (subst', bv', _)) = runState (go d) (subst, bv, M.empty) + + go, base :: Data d => d -> State (M.Map Name Exp, S.Set Name, M.Map Name Name) d + go = base `extM` pat `extM` match `extM` decl `extM` exp + base d = gmapM go d + + pat (PVar name) = PVar `fmap` rename name + pat d = base d + + match (Match sloc name ps typ exp bs) = do + name' <- rename name + return $ Match sloc name' ps typ exp bs + + decl (PatBind sloc pat exp bs) = do + pat' <- go pat + return $ PatBind sloc pat' exp bs + decl d = base d + + exp (e :: Exp) = return e + + rename :: Name -> State (M.Map Name Exp, S.Set Name, M.Map Name Name) Name + rename name = do + (subst, bv, ass) <- get + case (name `M.lookup` ass, name `S.member` bv) of + (Just name', _) -> do + return name' + (_, False) -> do + put (M.delete name subst, S.insert name bv, ass) + return name + _ -> do + let name' = freshNameAvoiding name bv + put (M.insert name (Var (UnQual name')) subst, + S.insert name' bv, M.insert name name' ass) + return name' + +-- generate fresh names +freshNameAvoiding :: Name -> S.Set Name -> Name +freshNameAvoiding name forbidden = con (pre ++ suf) where + (con, nm, cs) = case name of + Ident n -> (Ident, n, "0123456789") + Symbol n -> (Symbol, n, "?#") + pre = reverse . dropWhile (`elem` cs) . reverse $ nm + sufs = [1..] >>= flip replicateM cs + suf = head $ dropWhile (\suf -> con (pre ++ suf) `S.member` forbidden) sufs ---- Optimization (removing explicit lambdas) and restoration of infix ops ---- -- move lambda patterns into LHS optimizeD :: Decl -> Decl -optimizeD (PatBind locat (PVar fname) (UnGuardedRhs (Lambda _ pats rhs)) Nothing) - = FunBind [Match locat fname pats Nothing (UnGuardedRhs rhs) Nothing] +optimizeD (PatBind locat (PVar fname) (UnGuardedRhs (Lambda _ pats rhs)) Nothing) = + let (subst, bv, pats') = renameBinds M.empty (S.singleton fname) pats + rhs' = substAvoiding subst bv rhs + in FunBind [Match locat fname pats' Nothing (UnGuardedRhs rhs') Nothing] ---- combine function binding and lambda -optimizeD (FunBind [Match locat fname pats1 Nothing (UnGuardedRhs (Lambda _ pats2 rhs)) Nothing]) - = FunBind [Match locat fname (pats1 ++ pats2) Nothing (UnGuardedRhs rhs) Nothing] +optimizeD (FunBind [Match locat fname pats1 Nothing (UnGuardedRhs (Lambda _ pats2 rhs)) Nothing]) = + let (subst, bv, pats2') = renameBinds M.empty (varsBoundHere pats1) pats2 + rhs' = substAvoiding subst bv rhs + in FunBind [Match locat fname (pats1 ++ pats2') Nothing (UnGuardedRhs rhs') Nothing] optimizeD x = x -- remove parens optimizeRhs :: Rhs -> Rhs -optimizeRhs (UnGuardedRhs (Paren x)) - = UnGuardedRhs x +optimizeRhs (UnGuardedRhs (Paren x)) = UnGuardedRhs x optimizeRhs x = x optimizeE :: Exp -> Exp -- apply ((\x z -> ...x...) y) yielding (\z -> ...y...) if there is only one x or y is simple - -- TODO: avoid captures while substituting -optimizeE (App (Paren (Lambda locat (PVar ident : pats) body)) arg) | single || simple arg - = Paren (Lambda locat pats (everywhere (mkT (\x -> if x == (Var (UnQual ident)) then arg else x)) body)) - where single = gcount (mkQ False (== ident)) body <= 1 - simple e = case e of Var _ -> True; Lit _ -> True; Paren e' -> simple e'; _ -> False +optimizeE (App (Lambda locat (PVar ident : pats) body) arg) | single || simple arg = + let (subst, bv, pats') = renameBinds (M.singleton ident arg) (freeVars arg) pats + in Paren (Lambda locat pats' (substAvoiding subst bv body)) + where + single = countOcc ident body <= 1 + simple e = case e of Var _ -> True; Lit _ -> True; Paren e' -> simple e'; _ -> False -- apply ((\_ z -> ...) y) yielding (\z -> ...) -optimizeE (App (Paren (Lambda locat (PWildCard : pats) body)) _) - = Paren (Lambda locat pats body) +optimizeE (App (Lambda locat (PWildCard : pats) body) _) = + Paren (Lambda locat pats body) -- remove 0-arg lambdas resulting from application rules -optimizeE (Lambda _ [] b) - = b +optimizeE (Lambda _ [] b) = + b -- replace (\x -> \y -> z) with (\x y -> z) -optimizeE (Lambda locat p1 (Lambda _ p2 body)) - = Lambda locat (p1 ++ p2) body +optimizeE (Lambda locat p1 (Lambda _ p2 body)) = + let (subst, bv, p2') = renameBinds M.empty (varsBoundHere p1) p2 + body' = substAvoiding subst bv body + in Lambda locat (p1 ++ p2') body' -- remove double parens -optimizeE (Paren (Paren x)) - = Paren x +optimizeE (Paren (Paren x)) = + Paren x +-- remove parens around applied lambdas (the pretty printer restores them) +optimizeE (App (Paren (x@Lambda{})) y) = + App x y -- remove lambda body parens -optimizeE (Lambda l p (Paren x)) - = Lambda l p x +optimizeE (Lambda l p (Paren x)) = + Lambda l p x -- remove var, lit parens -optimizeE (Paren x@(Var _)) - = x -optimizeE (Paren x@(Lit _)) - = x +optimizeE (Paren x@(Var _)) = + x +optimizeE (Paren x@(Lit _)) = + x -- remove infix+lambda parens -optimizeE (InfixApp a o (Paren l@(Lambda _ _ _))) - = InfixApp a o l +optimizeE (InfixApp a o (Paren l@(Lambda _ _ _))) = + InfixApp a o l +-- remove infix+app aprens +optimizeE (InfixApp (Paren a@App{}) o l) = + InfixApp a o l +optimizeE (InfixApp a o (Paren l@App{})) = + InfixApp a o l -- remove left-assoc application parens -optimizeE (App (Paren (App a b)) c) - = App (App a b) c +optimizeE (App (Paren (App a b)) c) = + App (App a b) c -- restore infix -optimizeE (App (App (Var name'@(UnQual (Symbol _))) l) r) - = (InfixApp l (QVarOp name') r) +optimizeE (App (App (Var name'@(UnQual (Symbol _))) l) r) = + (InfixApp l (QVarOp name') r) -- eta reduce optimizeE (Lambda l ps@(_:_) (App e (Var (UnQual v)))) - | free && last ps == PVar v - = Lambda l (init ps) e - where free = gcount (mkQ False (== v)) e == 0 + | free && last ps == PVar v = Lambda l (init ps) e + where free = countOcc v e == 0 -- fail optimizeE x = x ---- Decombinatorization ---- --- fresh name generation. TODO: prettify this -fresh :: StateT (Name, [Name]) Identity Name -fresh = do (_, used) <- get - modify (\(v,u) -> (until (not . (`elem` used)) succName (succName v), u)) - (name', _) <- get - return name' - --- rename all lambda-bound variables. TODO: rewrite lets as well -rename :: Exp -> StateT (Name, [Name]) Identity Exp -rename = do everywhereM (mkM (\e -> case e of - (Lambda _ ps _) -> do - let pVars = concatMap pVarsIn ps - newVars <- mapM (const fresh) pVars - let replacements = zip pVars newVars - return (everywhere (mkT (\n -> fromMaybe n (lookup n replacements))) e) - _ -> return e)) - -uncomb' :: Exp -> State (Name, [Name]) Exp - -uncomb' (Paren (Paren e)) = return (Paren e) - --- expand plain combinators -uncomb' (Var qname) | isJust maybeDef = rename (fromJust maybeDef) - where maybeDef = M.lookup qname combinators +uncomb' :: Exp -> Exp + +uncomb' (Paren (Paren e)) = Paren e -- eliminate sections -uncomb' (RightSection op' arg) - = do a <- fresh - return (Paren (Lambda unkLoc [PVar a] (InfixApp (Var (UnQual a)) op' arg))) -uncomb' (LeftSection arg op') - = do a <- fresh - return (Paren (Lambda unkLoc [PVar a] (InfixApp arg op' (Var (UnQual a))))) +uncomb' (RightSection op' arg) = + let a = freshNameAvoiding (Ident "a") (freeVars arg) + in (Paren (Lambda unkLoc [PVar a] (InfixApp (Var (UnQual a)) op' arg))) +uncomb' (LeftSection arg op') = + let a = freshNameAvoiding (Ident "a") (freeVars arg) + in (Paren (Lambda unkLoc [PVar a] (InfixApp arg op' (Var (UnQual a))))) -- infix to prefix for canonicality -uncomb' (InfixApp lf (QVarOp name') rf) - = return (Paren (App (App (Var name') (Paren lf)) (Paren rf))) +uncomb' (InfixApp lf (QVarOp name') rf) = + (Paren (App (App (Var name') (Paren lf)) (Paren rf))) -- Expand (>>=) when it is obviously the reader monad: -- rewrite: (>>=) (\x -> e) -- to: (\ a b -> a ((\ x -> e) b) b) -uncomb' (App (Var (UnQual (Symbol ">>="))) (Paren lam@Lambda{})) - = do a <- fresh - b <- fresh - return (Paren (Lambda unkLoc [PVar a, PVar b] - (App (App (Var (UnQual a)) (Paren (App lam (Var (UnQual b))))) (Var (UnQual b))))) +uncomb' (App (Var (UnQual (Symbol ">>="))) (Paren lam@Lambda{})) = + let a = freshNameAvoiding (Ident "a") (freeVars lam) + b = freshNameAvoiding (Ident "b") (freeVars lam) + in (Paren (Lambda unkLoc [PVar a, PVar b] + (App (App (Var (UnQual a)) (Paren (App lam (Var (UnQual b))))) (Var (UnQual b))))) -- rewrite: ((>>=) e1) (\x y -> e2) -- to: (\a -> (\x y -> e2) (e1 a) a) -uncomb' (App (App (Var (UnQual (Symbol ">>="))) e1) (Paren lam@(Lambda _ (_:_:_) _))) - = do a <- fresh - return (Paren (Lambda unkLoc [PVar a] - (App (App lam (App e1 (Var (UnQual a)))) (Var (UnQual a))))) +uncomb' (App (App (Var (UnQual (Symbol ">>="))) e1) (Paren lam@(Lambda _ (_:_:_) _))) = + let a = freshNameAvoiding (Ident "a") (freeVars [e1,lam]) + in (Paren (Lambda unkLoc [PVar a] + (App (App lam (App e1 (Var (UnQual a)))) (Var (UnQual a))))) -- fail -uncomb' expr = return expr +uncomb' expr = expr ---- Simple combinator definitions --- -combinators :: M.Map QName Exp +combinators :: M.Map Name Exp combinators = M.fromList $ map declToTuple defs where defs = case parseModule combinatorModule of ParseOk (Hs.Module _ _ _ _ _ _ d) -> d f@(ParseFailed _ _) -> error ("Combinator loading: " ++ show f) declToTuple (PatBind _ (PVar fname) (UnGuardedRhs body) Nothing) - = (UnQual fname, Paren body) + = (fname, Paren body) declToTuple _ = error "Pointful Plugin error: can't convert declaration to tuple" --- the names we recognize as combinators, so we don't generate them as temporaries then substitute them. --- TODO: more generally correct would be to not substitute any variable which is bound by a pattern -recognizedNames :: [Name] -recognizedNames = map (\(UnQual n) -> n) $ M.keys combinators - combinatorModule :: String combinatorModule = unlines [ "(.) = \\f g x -> f (g x) ", @@ -192,15 +288,18 @@ ---- Top level ---- +unfoldCombinators :: (Data a) => a -> a +unfoldCombinators = substAvoiding combinators (freeVars combinators) + uncombOnce :: (Data a) => a -> a -uncombOnce x = evalState (everywhereM (mkM uncomb') x) (Ident "`", namesIn x ++ recognizedNames) +uncombOnce x = everywhere (mkT uncomb') x uncomb :: (Eq a, Data a) => a -> a uncomb = stabilize uncombOnce optimizeOnce :: (Data a) => a -> a -optimizeOnce x = everywhere (mkT optimizeD `extT'` optimizeRhs `extT'` optimizeE) x +optimizeOnce x = everywhere (mkT optimizeD `extT` optimizeRhs `extT` optimizeE) x optimize :: (Eq a, Data a) => a -> a optimize = stabilize optimizeOnce pointful :: String -> String -pointful = withParsed (stabilize (optimize . uncomb)) +pointful = withParsed (stabilize (optimize . uncomb) . stabilize (unfoldCombinators . uncomb)) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/pointful-1.0.7/pointful.cabal new/pointful-1.0.8/pointful.cabal --- old/pointful-1.0.7/pointful.cabal 2015-12-22 23:47:12.000000000 +0100 +++ new/pointful-1.0.8/pointful.cabal 2016-05-25 18:23:20.000000000 +0200 @@ -1,5 +1,5 @@ name: pointful -version: 1.0.7 +version: 1.0.8 synopsis: Pointful refactoring tool @@ -9,7 +9,7 @@ category: Development license: BSD3 license-file: LICENSE -author: Thomas Jäger et al. +author: Thomas Jäger, Bertram Felgenhauer, James Cook et al. maintainer: Mikhail Glushenkov <mikhail.glushenkov(a)gmail.com> homepage: http://github.com/23Skidoo/pointful build-type: Simple

1 0

commit ghc-turtle for openSUSE:Factory
by root＠hilbert.suse.de 31 May '16

31 May '16

Hello community, here is the log from the commit of package ghc-turtle for openSUSE:Factory checked in at 2016-05-31 12:25:08 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-turtle (Old) and /work/SRC/openSUSE:Factory/.ghc-turtle.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-turtle" Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-turtle/ghc-turtle.changes 2016-04-30 23:30:43.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-turtle.new/ghc-turtle.changes 2016-05-31 12:25:09.000000000 +0200 @@ -1,0 +2,5 @@ +Mon May 30 09:59:57 UTC 2016 - mimi.vx(a)gmail.com + +- update to 1.2.8 + +------------------------------------------------------------------- Old: ---- turtle-1.2.7.tar.gz New: ---- turtle-1.2.8.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-turtle.spec ++++++ --- /var/tmp/diff_new_pack.Gcx2Vm/_old 2016-05-31 12:25:10.000000000 +0200 +++ /var/tmp/diff_new_pack.Gcx2Vm/_new 2016-05-31 12:25:10.000000000 +0200 @@ -20,7 +20,7 @@ %bcond_with tests Name: ghc-turtle -Version: 1.2.7 +Version: 1.2.8 Release: 0 Summary: Shell programming, Haskell-style Group: System/Libraries ++++++ turtle-1.2.7.tar.gz -> turtle-1.2.8.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/turtle-1.2.7/src/Turtle/Options.hs new/turtle-1.2.8/src/Turtle/Options.hs --- old/turtle-1.2.7/src/Turtle/Options.hs 2016-03-28 01:16:25.000000000 +0200 +++ new/turtle-1.2.8/src/Turtle/Options.hs 2016-05-28 19:42:58.000000000 +0200 @@ -37,11 +37,11 @@ module Turtle.Options ( -- * Types Parser - , ArgName - , CommandName + , ArgName(..) + , CommandName(..) , ShortName - , Description - , HelpMessage + , Description(..) + , HelpMessage(..) -- * Flag-based option parsers , switch diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/turtle-1.2.7/src/Turtle/Prelude.hs new/turtle-1.2.8/src/Turtle/Prelude.hs --- old/turtle-1.2.7/src/Turtle/Prelude.hs 2016-03-28 00:38:05.000000000 +0200 +++ new/turtle-1.2.8/src/Turtle/Prelude.hs 2016-05-28 19:46:34.000000000 +0200 @@ -1481,7 +1481,7 @@ The `Num` instance for `Size` interprets numeric literals as bytes -} -newtype Size = Size { _bytes :: Integer } deriving (Num) +newtype Size = Size { _bytes :: Integer } deriving (Eq, Ord, Num) instance Show Size where show = show . _bytes diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/turtle-1.2.7/turtle.cabal new/turtle-1.2.8/turtle.cabal --- old/turtle-1.2.7/turtle.cabal 2016-04-25 02:54:40.000000000 +0200 +++ new/turtle-1.2.8/turtle.cabal 2016-05-29 03:00:44.000000000 +0200 @@ -1,5 +1,5 @@ Name: turtle -Version: 1.2.7 +Version: 1.2.8 Cabal-Version: >=1.10 Build-Type: Simple License: BSD3 @@ -7,6 +7,7 @@ Copyright: 2015 Gabriel Gonzalez Author: Gabriel Gonzalez Maintainer: Gabriel439(a)gmail.com +Tested-With: GHC == 7.6.3, GHC == 7.8.4, GHC == 7.10.2, GHC == 8.0.1 Bug-Reports: https://github.com/Gabriel439/Haskell-Turtle-Library/issues Synopsis: Shell programming, Haskell-style Description: @turtle@ is a reimplementation of the Unix command line environment @@ -46,7 +47,7 @@ Library HS-Source-Dirs: src Build-Depends: - base >= 4.5 && < 5 , + base >= 4.6 && < 5 , async >= 2.0.0.0 && < 2.2, clock >= 0.4.1.2 && < 0.8, directory >= 1.0.7 && < 1.3, @@ -59,8 +60,8 @@ stm < 2.5, temporary < 1.3, text < 1.3, - time < 1.6, - transformers >= 0.2.0.0 && < 0.5, + time < 1.7, + transformers >= 0.2.0.0 && < 0.6, optparse-applicative >= 0.11 && < 0.13, optional-args >= 1.0 && < 2.0 if os(windows) @@ -75,18 +76,18 @@ Turtle.Options, Turtle.Prelude, Turtle.Tutorial - GHC-Options: -O2 -Wall + GHC-Options: -Wall Default-Language: Haskell2010 test-suite tests Type: exitcode-stdio-1.0 HS-Source-Dirs: test Main-Is: Main.hs - GHC-Options: -O2 -Wall + GHC-Options: -Wall Default-Language: Haskell2010 Build-Depends: - base >= 4 && < 5 , - doctest >= 0.9.12 && < 0.12 + base >= 4 && < 5 , + doctest >= 0.7 && < 0.12 benchmark bench Type: exitcode-stdio-1.0 @@ -95,7 +96,7 @@ GHC-Options: -O2 -Wall -threaded Default-Language: Haskell2010 Build-Depends: - base >= 4 && < 5 , - criterion >= 1.1.0.0 && < 2 , - text < 1.3, + base >= 4 && < 5 , + criterion >= 0.4 && < 2 , + text < 1.3, turtle

1 0

commit ghc-retry for openSUSE:Factory
by root＠hilbert.suse.de 31 May '16

31 May '16

Hello community, here is the log from the commit of package ghc-retry for openSUSE:Factory checked in at 2016-05-31 12:25:06 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-retry (Old) and /work/SRC/openSUSE:Factory/.ghc-retry.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-retry" Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-retry/ghc-retry.changes 2016-05-17 17:14:43.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-retry.new/ghc-retry.changes 2016-05-31 12:25:08.000000000 +0200 @@ -1,0 +2,6 @@ +Mon May 30 09:57:28 UTC 2016 - mimi.vx(a)gmail.com + +- update to 0.7.3 +* Widen ghc-prim dependency for GHC 8 + +------------------------------------------------------------------- Old: ---- retry-0.7.2.tar.gz New: ---- retry-0.7.3.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-retry.spec ++++++ --- /var/tmp/diff_new_pack.XvnPui/_old 2016-05-31 12:25:09.000000000 +0200 +++ /var/tmp/diff_new_pack.XvnPui/_new 2016-05-31 12:25:09.000000000 +0200 @@ -20,7 +20,7 @@ %bcond_with tests Name: ghc-retry -Version: 0.7.2 +Version: 0.7.3 Release: 0 Summary: Retry combinators for monadic actions that may fail Group: System/Libraries ++++++ retry-0.7.2.tar.gz -> retry-0.7.3.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/retry-0.7.2/changelog.md new/retry-0.7.3/changelog.md --- old/retry-0.7.2/changelog.md 2016-05-03 17:49:56.000000000 +0200 +++ new/retry-0.7.3/changelog.md 2016-05-27 19:49:33.000000000 +0200 @@ -1,3 +1,6 @@ +0.7.3 +* Widen ghc-prim dependency for GHC 8 + 0.7.2 * Fix premature integer overflow error thanks to Mitsutoshi Aoe diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/retry-0.7.2/retry.cabal new/retry-0.7.3/retry.cabal --- old/retry-0.7.2/retry.cabal 2016-05-03 17:49:56.000000000 +0200 +++ new/retry-0.7.3/retry.cabal 2016-05-27 19:49:33.000000000 +0200 @@ -14,7 +14,7 @@ case we should hang back for a bit and retry the query instead of simply raising an exception. -version: 0.7.2 +version: 0.7.3 synopsis: Retry combinators for monadic actions that may fail license: BSD3 license-file: LICENSE @@ -35,7 +35,7 @@ base >= 4.6 && < 5 , data-default-class , exceptions >= 0.5 && < 0.9 - , ghc-prim < 0.5 + , ghc-prim < 0.6 , random >= 1 && < 1.2 , transformers < 0.6 hs-source-dirs: src

1 0

commit texmath for openSUSE:Factory
by root＠hilbert.suse.de 31 May '16

31 May '16

Hello community, here is the log from the commit of package texmath for openSUSE:Factory checked in at 2016-05-31 12:25:05 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/texmath (Old) and /work/SRC/openSUSE:Factory/.texmath.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "texmath" Changes: -------- --- /work/SRC/openSUSE:Factory/texmath/texmath.changes 2016-04-30 23:30:40.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.texmath.new/texmath.changes 2016-05-31 12:25:06.000000000 +0200 @@ -1,0 +2,6 @@ +Thu May 26 06:04:59 UTC 2016 - mimi.vx(a)gmail.com + +- update to 0.8.6.3 +* Use POST instead of GET for texmath-cgi. + +------------------------------------------------------------------- Old: ---- texmath-0.8.6.2.tar.gz New: ---- texmath-0.8.6.3.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ texmath.spec ++++++ --- /var/tmp/diff_new_pack.VXJP28/_old 2016-05-31 12:25:07.000000000 +0200 +++ /var/tmp/diff_new_pack.VXJP28/_new 2016-05-31 12:25:07.000000000 +0200 @@ -19,7 +19,7 @@ %global pkg_name texmath Name: texmath -Version: 0.8.6.2 +Version: 0.8.6.3 Release: 0 Summary: Conversion of LaTeX math formulas to MathML or OMML License: GPL-2.0 ++++++ texmath-0.8.6.2.tar.gz -> texmath-0.8.6.3.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/texmath-0.8.6.2/cgi/texmath.html new/texmath-0.8.6.3/cgi/texmath.html --- old/texmath-0.8.6.2/cgi/texmath.html 2016-04-21 00:01:00.000000000 +0200 +++ new/texmath-0.8.6.3/cgi/texmath.html 2016-05-24 21:29:41.000000000 +0200 @@ -2,7 +2,7 @@ <html lang="en"> <head> <meta charset="utf-8"> - <title>stmd.js demo</title> + <title>texmath demo</title> <script type="text/x-mathjax-config"> MathJax.Hub.Config({ config: ["MMLorHTML.js"], @@ -34,7 +34,7 @@ $(document).ready(function(){ $('#convert-latex2mathml').click(function() { - $.getJSON("/cgi-bin/texmath-cgi", + $.post("/cgi-bin/texmath-cgi", { 'input' : $('#latex-input').val(), 'from': 'tex', 'to': 'mathml' }, @@ -48,10 +48,10 @@ $('#preview').html(''); }; MathJax.Hub.Queue(["Typeset",MathJax.Hub,"preview"]); - }) + }, 'json') }); $('#convert-mathml2latex').click(function() { - $.getJSON("/cgi-bin/texmath-cgi", + $.post("/cgi-bin/texmath-cgi", { 'input' : $('#mathml-input').val(), 'from': 'mathml', 'to': 'tex' }, @@ -65,7 +65,7 @@ $('#preview').text(''); }; MathJax.Hub.Queue(["Typeset",MathJax.Hub,"preview"]); - }) + }, 'json') }); $('a[data-toggle="tab"]').click(function (e) { $('#preview').text(''); // clear preview diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/texmath-0.8.6.2/changelog new/texmath-0.8.6.3/changelog --- old/texmath-0.8.6.2/changelog 2016-04-21 00:01:00.000000000 +0200 +++ new/texmath-0.8.6.3/changelog 2016-05-24 21:29:41.000000000 +0200 @@ -1,3 +1,7 @@ +texmath (0.8.6.3) + + * Use POST instead of GET for texmath-cgi. + texmath (0.8.6.2) * Fixed array alignment issues (jgm/pandoc#2864, jgm/pandoc#2310). diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/texmath-0.8.6.2/extra/texmath.hs new/texmath-0.8.6.3/extra/texmath.hs --- old/texmath-0.8.6.2/extra/texmath.hs 2016-04-21 00:01:00.000000000 +0200 +++ new/texmath-0.8.6.3/extra/texmath.hs 2016-05-24 21:29:41.000000000 +0200 @@ -147,14 +147,14 @@ runCGI :: IO () runCGI = do - query <- getEnv "QUERY_STRING" + query <- getContents let topairs xs = case break (=='=') xs of (ys,('=':zs)) -> (urlUnencode ys, urlUnencode zs) (ys,_) -> (urlUnencode ys,"") let pairs = map topairs $ splitOn "&" query inp <- case lookup "input" pairs of - Just x -> return x - Nothing -> err True 11 "Querry missing 'input'" + Just x -> return x + Nothing -> err True 3 "Query missing 'input'" reader <- case lookup "from" pairs of Just x -> case lookup x readers of Just y -> return y diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/texmath-0.8.6.2/texmath.cabal new/texmath-0.8.6.3/texmath.cabal --- old/texmath-0.8.6.2/texmath.cabal 2016-04-21 00:01:00.000000000 +0200 +++ new/texmath-0.8.6.3/texmath.cabal 2016-05-24 21:29:41.000000000 +0200 @@ -1,5 +1,5 @@ Name: texmath -Version: 0.8.6.2 +Version: 0.8.6.3 Cabal-Version: >= 1.10 Build-type: Simple Synopsis: Conversion between formats used to represent mathematics.

1 0