Hello community, here is the log from the commit of package ghc-turtle for openSUSE:Factory checked in at 2018-12-28 12:35:21 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-turtle (Old) and /work/SRC/openSUSE:Factory/.ghc-turtle.new.28833 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-turtle" Fri Dec 28 12:35:21 2018 rev:3 rq:661502 version:1.5.13 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-turtle/ghc-turtle.changes 2018-10-25 08:19:09.919996448 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-turtle.new.28833/ghc-turtle.changes 2018-12-28 12:35:30.287955810 +0100 @@ -1,0 +2,11 @@ +Fri Dec 21 03:02:51 UTC 2018 - psimons@suse.com + +- Update turtle to version 1.5.13. + 1.5.13 + + * Fix `chmod` bug + * See: https://github.com/Gabriel439/Haskell-Turtle-Library/pull/337 + * Add `reduce` and re-export `(<&>)` + * See: https://github.com/Gabriel439/Haskell-Turtle-Library/pull/332 + +------------------------------------------------------------------- Old: ---- turtle-1.5.12.tar.gz New: ---- turtle-1.5.13.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-turtle.spec ++++++ --- /var/tmp/diff_new_pack.BXFFe6/_old 2018-12-28 12:35:30.791955457 +0100 +++ /var/tmp/diff_new_pack.BXFFe6/_new 2018-12-28 12:35:30.791955457 +0100 @@ -19,7 +19,7 @@ %global pkg_name turtle %bcond_with tests Name: ghc-%{pkg_name} -Version: 1.5.12 +Version: 1.5.13 Release: 0 Summary: Shell programming, Haskell-style License: BSD-3-Clause ++++++ turtle-1.5.12.tar.gz -> turtle-1.5.13.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/turtle-1.5.12/CHANGELOG.md new/turtle-1.5.13/CHANGELOG.md --- old/turtle-1.5.12/CHANGELOG.md 2018-10-04 01:19:27.000000000 +0200 +++ new/turtle-1.5.13/CHANGELOG.md 2018-12-20 17:51:10.000000000 +0100 @@ -1,3 +1,10 @@ +1.5.13 + +* Fix `chmod` bug + * See: https://github.com/Gabriel439/Haskell-Turtle-Library/pull/337 +* Add `reduce` and re-export `(<&>)` + * See: https://github.com/Gabriel439/Haskell-Turtle-Library/pull/332 + 1.5.12 * Increase upper bound on `containers` diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/turtle-1.5.12/src/Turtle/Prelude.hs new/turtle-1.5.13/src/Turtle/Prelude.hs --- old/turtle-1.5.12/src/Turtle/Prelude.hs 2018-10-04 01:19:27.000000000 +0200 +++ new/turtle-1.5.13/src/Turtle/Prelude.hs 2018-12-20 17:51:10.000000000 +0100 @@ -1253,9 +1253,9 @@ let permissions' = fromSystemDirectoryPermissions permissions let permissions'' = modifyPermissions permissions' changed = permissions' /= permissions'' - let permissions''' = toSystemDirectoryPermissions permissions' + let permissions''' = toSystemDirectoryPermissions permissions'' when changed (Directory.setPermissions path' permissions''') - return permissions' ) + return permissions'' ) -- | Get a file or directory's user permissions getmod :: MonadIO io => FilePath -> io Permissions diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/turtle-1.5.12/src/Turtle/Shell.hs new/turtle-1.5.13/src/Turtle/Shell.hs --- old/turtle-1.5.12/src/Turtle/Shell.hs 2018-10-04 01:19:27.000000000 +0200 +++ new/turtle-1.5.13/src/Turtle/Shell.hs 2018-12-20 17:51:10.000000000 +0100 @@ -66,6 +66,7 @@ , foldIO , foldShell , fold + , reduce , sh , view @@ -143,6 +144,16 @@ fold :: MonadIO io => Shell a -> Fold a b -> io b fold s f = foldIO s (Foldl.generalize f) +-- | Flipped version of 'fold'. Useful for reducing a stream of data +-- +-- ==== __Example__ +-- Sum a `Shell` of numbers: +-- +-- >>> select [1, 2, 3] & reduce Fold.sum +-- 6 +reduce :: MonadIO io => Fold a b -> Shell a -> io b +reduce = flip fold + -- | Run a `Shell` to completion, discarding any unused values sh :: MonadIO io => Shell a -> io () sh s = fold s (pure ()) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/turtle-1.5.12/src/Turtle.hs new/turtle-1.5.13/src/Turtle.hs --- old/turtle-1.5.12/src/Turtle.hs 2018-10-04 01:19:27.000000000 +0200 +++ new/turtle-1.5.13/src/Turtle.hs 2018-12-20 17:51:10.000000000 +0100 @@ -87,6 +87,7 @@ , ExitCode(..) , IsString(..) , (&) + , (<&>) ) where import Turtle.Format @@ -163,3 +164,32 @@ (&) :: a -> (a -> b) -> b x & f = f x #endif + +#if __GLASGOW_HASKELL__ >= 821 +import Data.Functor ((<&>)) +#else +-- | Flipped version of '<$>'. +-- +-- @ +-- ('<&>') = 'flip' 'fmap' +-- @ +-- +-- @since 4.11.0.0 +-- +-- ==== __Examples__ +-- Apply @(+1)@ to a list, a 'Data.Maybe.Just' and a 'Data.Either.Right': +-- +-- >>> Just 2 <&> (+1) +-- Just 3 +-- +-- >>> [1,2,3] <&> (+1) +-- [2,3,4] +-- +-- >>> Right 3 <&> (+1) +-- Right 4 +-- +(<&>) :: Functor f => f a -> (a -> b) -> f b +as <&> f = f <$> as + +infixl 1 <&> +#endif diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/turtle-1.5.12/turtle.cabal new/turtle-1.5.13/turtle.cabal --- old/turtle-1.5.12/turtle.cabal 2018-10-04 01:19:27.000000000 +0200 +++ new/turtle-1.5.13/turtle.cabal 2018-12-20 17:51:10.000000000 +0100 @@ -1,5 +1,5 @@ Name: turtle -Version: 1.5.12 +Version: 1.5.13 Cabal-Version: >=1.10 Build-Type: Simple License: BSD3