Hello community, here is the log from the commit of package ghc-turtle for openSUSE:Factory checked in at 2017-06-22 10:39:22 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-turtle (Old) and /work/SRC/openSUSE:Factory/.ghc-turtle.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-turtle" Thu Jun 22 10:39:22 2017 rev:9 rq:504114 version:1.3.5 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-turtle/ghc-turtle.changes 2017-06-04 01:55:47.466428035 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-turtle.new/ghc-turtle.changes 2017-06-22 10:39:24.449959303 +0200 @@ -1,0 +2,10 @@ +Thu Jun 8 11:08:23 UTC 2017 - psimons@suse.com + +- Update to version 1.3.5. + +------------------------------------------------------------------- +Wed May 31 14:05:43 UTC 2017 - psimons@suse.com + +- Update to version 1.3.4. + +------------------------------------------------------------------- Old: ---- turtle-1.3.3.tar.gz New: ---- turtle-1.3.5.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-turtle.spec ++++++ --- /var/tmp/diff_new_pack.xohuSJ/_old 2017-06-22 10:39:25.017879234 +0200 +++ /var/tmp/diff_new_pack.xohuSJ/_new 2017-06-22 10:39:25.021878671 +0200 @@ -19,7 +19,7 @@ %global pkg_name turtle %bcond_with tests Name: ghc-%{pkg_name} -Version: 1.3.3 +Version: 1.3.5 Release: 0 Summary: Shell programming, Haskell-style License: BSD-3-Clause ++++++ turtle-1.3.3.tar.gz -> turtle-1.3.5.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/turtle-1.3.3/CHANGELOG.md new/turtle-1.3.5/CHANGELOG.md --- old/turtle-1.3.3/CHANGELOG.md 2017-04-29 23:11:56.000000000 +0200 +++ new/turtle-1.3.5/CHANGELOG.md 2017-05-31 23:49:57.000000000 +0200 @@ -1,3 +1,13 @@ +1.3.5 + +* Increase upper bound on `foldl` + +1.3.4 + +* Bug fix: `cptree` now correctly copies files instead of creating directories + of the same name +* Increase upper bound on `criterion` + 1.3.3 * Bug fix: Change `textToLines` to behave like `Data.Text.splitOn "\n"` diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/turtle-1.3.3/src/Turtle/Prelude.hs new/turtle-1.3.5/src/Turtle/Prelude.hs --- old/turtle-1.3.3/src/Turtle/Prelude.hs 2017-04-29 23:11:56.000000000 +0200 +++ new/turtle-1.3.5/src/Turtle/Prelude.hs 2017-05-31 23:49:57.000000000 +0200 @@ -1034,9 +1034,9 @@ -- directory Just suffix <- return (Filesystem.stripPrefix (oldTree "") oldPath) let newPath = newTree suffix - isFile <- testfile newPath + isFile <- testfile oldPath if isFile - then cp oldPath newPath + then mktree (Filesystem.directory newPath) >> cp oldPath newPath else mktree newPath ) -- | Remove a file diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/turtle-1.3.3/test/cptree.hs new/turtle-1.3.5/test/cptree.hs --- old/turtle-1.3.3/test/cptree.hs 1970-01-01 01:00:00.000000000 +0100 +++ new/turtle-1.3.5/test/cptree.hs 2017-05-31 23:49:57.000000000 +0200 @@ -0,0 +1,26 @@ +{-# LANGUAGE OverloadedStrings #-} + +import Turtle +import Filesystem.Path.CurrentOS () +import System.IO.Temp (withSystemTempDirectory) +import Control.Monad (unless) + +check :: String -> Bool-> IO () +check errorMessage successs = unless successs $ fail errorMessage + +main :: IO () +main = withSystemTempDirectory "tempDir" (runTest . fromString) + +runTest :: Turtle.FilePath -> IO () +runTest tempDir = do + let srcDirectory = tempDir "src" + + mktree $ srcDirectory "directory" + touch $ srcDirectory "directory" "file" + + let destDirectory = tempDir "dest" + + cptree srcDirectory destDirectory + + testdir (destDirectory "directory") >>= check "cptree did not preserve directory" + testfile (destDirectory "directory" "file") >>= check "cptree did not preserve directory" diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/turtle-1.3.3/turtle.cabal new/turtle-1.3.5/turtle.cabal --- old/turtle-1.3.3/turtle.cabal 2017-04-29 23:11:56.000000000 +0200 +++ new/turtle-1.3.5/turtle.cabal 2017-05-31 23:49:57.000000000 +0200 @@ -1,5 +1,5 @@ Name: turtle -Version: 1.3.3 +Version: 1.3.5 Cabal-Version: >=1.10 Build-Type: Simple License: BSD3 @@ -55,7 +55,7 @@ bytestring >= 0.9.1.8 && < 0.11, clock >= 0.4.1.2 && < 0.8 , directory >= 1.0.7 && < 1.4 , - foldl >= 1.1 && < 1.3 , + foldl >= 1.1 && < 1.4 , hostname < 1.1 , managed >= 1.0.3 && < 1.1 , process >= 1.0.1.1 && < 1.5 , @@ -119,6 +119,18 @@ base >= 4 && < 5, turtle +test-suite cptree + Type: exitcode-stdio-1.0 + HS-Source-Dirs: test + Main-Is: cptree.hs + GHC-Options: -Wall -threaded + Default-Language: Haskell2010 + Build-Depends: + base >= 4 && < 5, + temporary, + system-filepath >= 0.4, + turtle + benchmark bench Type: exitcode-stdio-1.0 HS-Source-Dirs: bench @@ -132,4 +144,4 @@ if impl(ghc < 7.8) Build-Depends: criterion >= 0.4 && < 1.1.4.0 else - Build-Depends: criterion >= 0.4 && < 1.2 + Build-Depends: criterion >= 0.4 && < 1.3