Hello community, here is the log from the commit of package ghc-turtle for openSUSE:Factory checked in at 2018-10-25 08:19:07 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-turtle (Old) and /work/SRC/openSUSE:Factory/.ghc-turtle.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-turtle" Thu Oct 25 08:19:07 2018 rev:2 rq:642900 version:1.5.12 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-turtle/ghc-turtle.changes 2018-07-25 16:10:05.281564704 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-turtle.new/ghc-turtle.changes 2018-10-25 08:19:09.919996448 +0200 @@ -1,0 +2,17 @@ +Thu Oct 4 09:42:52 UTC 2018 - [email protected] + +- Update turtle to version 1.5.12. + 1.5.12 + + * Increase upper bound on `containers` + + 1.5.11 + + * Don't forward broken pipe exceptions when using `inproc` + * See: https://github.com/Gabriel439/Haskell-Turtle-Library/pull/321 + * Increase upper bound on `stm` + * See: https://github.com/Gabriel439/Haskell-Turtle-Library/pull/321 + * Tutorial improvements: + * See: https://github.com/Gabriel439/Haskell-Turtle-Library/pull/322 + +------------------------------------------------------------------- Old: ---- turtle-1.5.10.tar.gz New: ---- turtle-1.5.12.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-turtle.spec ++++++ --- /var/tmp/diff_new_pack.qG1KI3/_old 2018-10-25 08:19:10.671996115 +0200 +++ /var/tmp/diff_new_pack.qG1KI3/_new 2018-10-25 08:19:10.675996114 +0200 @@ -12,14 +12,14 @@ # license that conforms to the Open Source Definition (Version 1.9) # published by the Open Source Initiative. -# Please submit bugfixes or comments via http://bugs.opensuse.org/ +# Please submit bugfixes or comments via https://bugs.opensuse.org/ # %global pkg_name turtle %bcond_with tests Name: ghc-%{pkg_name} -Version: 1.5.10 +Version: 1.5.12 Release: 0 Summary: Shell programming, Haskell-style License: BSD-3-Clause ++++++ turtle-1.5.10.tar.gz -> turtle-1.5.12.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/turtle-1.5.10/CHANGELOG.md new/turtle-1.5.12/CHANGELOG.md --- old/turtle-1.5.10/CHANGELOG.md 2018-07-04 04:54:31.000000000 +0200 +++ new/turtle-1.5.12/CHANGELOG.md 2018-10-04 01:19:27.000000000 +0200 @@ -1,3 +1,16 @@ +1.5.12 + +* Increase upper bound on `containers` + +1.5.11 + +* Don't forward broken pipe exceptions when using `inproc` + * See: https://github.com/Gabriel439/Haskell-Turtle-Library/pull/321 +* Increase upper bound on `stm` + * See: https://github.com/Gabriel439/Haskell-Turtle-Library/pull/321 +* Tutorial improvements: + * See: https://github.com/Gabriel439/Haskell-Turtle-Library/pull/322 + 1.5.10 * Increase upper bound on `doctest` and `criterion` diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/turtle-1.5.10/src/Turtle/Bytes.hs new/turtle-1.5.12/src/Turtle/Bytes.hs --- old/turtle-1.5.10/src/Turtle/Bytes.hs 2018-07-04 04:54:31.000000000 +0200 +++ new/turtle-1.5.12/src/Turtle/Bytes.hs 2018-10-04 01:19:27.000000000 +0200 @@ -519,15 +519,15 @@ mvar <- liftIO (MVar.newMVar False) let close handle = do MVar.modifyMVar_ mvar (\finalized -> do - Control.Monad.unless finalized (System.IO.hClose handle) + Control.Monad.unless finalized (ignoreSIGPIPE (System.IO.hClose handle)) return True ) (hIn, hOut, ph) <- using (Managed.managed (Exception.bracket open (\(hIn, _, ph) -> close hIn >> Process.terminateProcess ph))) let feedIn :: (forall a. IO a -> IO a) -> IO () feedIn restore = - restore (sh (do + restore (ignoreSIGPIPE (sh (do bytes <- s - liftIO (Data.ByteString.hPut hIn bytes) ) ) + liftIO (Data.ByteString.hPut hIn bytes) ) ) ) `Exception.finally` close hIn a <- using @@ -565,15 +565,15 @@ mvar <- liftIO (MVar.newMVar False) let close handle = do MVar.modifyMVar_ mvar (\finalized -> do - Control.Monad.unless finalized (System.IO.hClose handle) + Control.Monad.unless finalized (ignoreSIGPIPE (System.IO.hClose handle)) return True ) (hIn, hOut, hErr, ph) <- using (Managed.managed (Exception.bracket open (\(hIn, _, _, ph) -> close hIn >> Process.terminateProcess ph))) let feedIn :: (forall a. IO a -> IO a) -> IO () feedIn restore = - restore (sh (do + restore (ignoreSIGPIPE (sh (do bytes <- s - liftIO (Data.ByteString.hPut hIn bytes) ) ) + liftIO (Data.ByteString.hPut hIn bytes) ) ) ) `Exception.finally` close hIn queue <- liftIO TQueue.newTQueueIO diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/turtle-1.5.10/src/Turtle/Prelude.hs new/turtle-1.5.12/src/Turtle/Prelude.hs --- old/turtle-1.5.10/src/Turtle/Prelude.hs 2018-07-04 04:54:31.000000000 +0200 +++ new/turtle-1.5.12/src/Turtle/Prelude.hs 2018-10-04 01:19:27.000000000 +0200 @@ -734,12 +734,12 @@ mvar <- liftIO (newMVar False) let close handle = do modifyMVar_ mvar (\finalized -> do - unless finalized (hClose handle) + unless finalized (ignoreSIGPIPE (hClose handle)) return True ) (hIn, hOut, ph) <- using (managed (bracket open (\(hIn, _, ph) -> close hIn >> Process.terminateProcess ph))) let feedIn :: (forall a. IO a -> IO a) -> IO () - feedIn restore = restore (outhandle hIn s) `finally` close hIn + feedIn restore = restore (ignoreSIGPIPE (outhandle hIn s)) `finally` close hIn a <- using (managed (\k -> @@ -775,12 +775,12 @@ mvar <- liftIO (newMVar False) let close handle = do modifyMVar_ mvar (\finalized -> do - unless finalized (hClose handle) + unless finalized (ignoreSIGPIPE (hClose handle)) return True ) (hIn, hOut, hErr, ph) <- using (managed (bracket open (\(hIn, _, _, ph) -> close hIn >> Process.terminateProcess ph))) let feedIn :: (forall a. IO a -> IO a) -> IO () - feedIn restore = restore (outhandle hIn s) `finally` close hIn + feedIn restore = restore (ignoreSIGPIPE (outhandle hIn s)) `finally` close hIn queue <- liftIO TQueue.newTQueueIO let forwardOut :: (forall a. IO a -> IO a) -> IO () diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/turtle-1.5.10/src/Turtle/Tutorial.hs new/turtle-1.5.12/src/Turtle/Tutorial.hs --- old/turtle-1.5.10/src/Turtle/Tutorial.hs 2018-07-04 04:54:31.000000000 +0200 +++ new/turtle-1.5.12/src/Turtle/Tutorial.hs 2018-10-04 01:19:27.000000000 +0200 @@ -1053,6 +1053,34 @@ -- > (2,3) -- > (2,4) -- +-- This is because `Shell` behaves like a list comprehension, running each +-- following command once for each element in the stream. This implies that +-- an `Shell` stream that produces 0 elements will short-circuit and prevent +-- subsequent commands from being run. +-- +-- > -- This stream emits 0 elements but still has side effects +-- > inner :: Shell a +-- > inner = do +-- > x <- select [1, 2] +-- > y <- select [3, 4] +-- > liftIO (print (x, y)) +-- > empty +-- > +-- > outer :: Shell () +-- > outer = do +-- > inner +-- > liftIO (echo "This step will never run") +-- +-- If you want to run a `Shell` stream just for its side effects, wrap the +-- `Shell` with `sh`. This ensures that you don't alter the surrounding +-- `Shell`'s control flow by unintentionally running subsequent commands zero +-- times or multiple times: +-- +-- > outer :: Shell () +-- > outer = do +-- > sh inner +-- > liftIO (echo "Now this step will exactly once") +-- -- This uses the `sh` utility instead of `view`. The only difference is that -- `sh` doesn't print any values (since `print` is doing that already): -- diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/turtle-1.5.10/turtle.cabal new/turtle-1.5.12/turtle.cabal --- old/turtle-1.5.10/turtle.cabal 2018-07-04 04:54:31.000000000 +0200 +++ new/turtle-1.5.12/turtle.cabal 2018-10-04 01:19:27.000000000 +0200 @@ -1,5 +1,5 @@ Name: turtle -Version: 1.5.10 +Version: 1.5.12 Cabal-Version: >=1.10 Build-Type: Simple License: BSD3 @@ -54,7 +54,7 @@ async >= 2.0.0.0 && < 2.3 , bytestring >= 0.9.1.8 && < 0.11, clock >= 0.4.1.2 && < 0.8 , - containers >= 0.5.0.0 && < 0.6 , + containers >= 0.5.0.0 && < 0.7 , directory >= 1.0.7 && < 1.4 , exceptions >= 0.4 && < 0.11, foldl >= 1.1 && < 1.5 , @@ -64,7 +64,7 @@ semigroups >= 0.5.0 && < 0.19, system-filepath >= 0.3.1 && < 0.5 , system-fileio >= 0.2.1 && < 0.4 , - stm < 2.5 , + stm < 2.6 , temporary < 1.4 , text < 1.3 , time < 1.9 ,
