hsshellscript 3.4.2 → 3.4.3

raw patch · 5 files changed

+16/−8 lines, 5 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Makefile +1/−1
• hsshellscript.cabal +2/−2
• src/HsShellScript/ProcErr.chs +8/−1
• test/args.hs +0/−2
• test/pipe.hs +5/−2

@@ -1,4 +1,4 @@-VERSION = 3.4.2+VERSION = 3.4.3  default :: lib 

@@ -1,5 +1,5 @@ Name:                hsshellscript-Version:             3.4.2+Version:             3.4.3 Synopsis:            Haskell for Unix shell scripting tasks Description:         A Haskell-library for tasks which are usually done in                      shell scripts. This includes parsing command line@@ -12,7 +12,7 @@ License-file:        LICENSE Author:              Volker Wysk Maintainer:          hsss@volker-wysk.de-Copyright:           (c)2004-2011 by Volker Wysk+Copyright:           (c)2004-2017 by Volker Wysk Category:            System Build-type:          Simple Extra-source-files:  README, manual/*.html, manual/LICENSE, Makefile, test/Makefile, test/*.hs, test/*.c, test/*.chs

@@ -1859,22 +1859,26 @@ child :: IO a           -- Action to modify       -> IO b           -- Never returns child io = do-   (io `finally` flush_outerr)+   io       `catches`       [ Handler $ (\argerror -> do                       errm $ "In child process:\n" ++ argerror_message argerror+                      flush_outerr                       _exit 1                   )       , Handler $ (\processstatus -> do                       errm $ "Process error in child process. Process status = " ++ show ( processstatus :: ProcessStatus )+                      flush_outerr                       _exit 1                   )       , Handler $ (\(runerror::RunError) -> do                       errm $ (show_runerror runerror)+                      flush_outerr                       _exit 1                   )       , Handler $ (\(ioe::IOError) -> do                       errm ("In child process:\n   " ++ show_ioerror ioe)+                      flush_outerr                       _exit 1                   )       , Handler $ (\(e::ExitCode) -> do@@ -1886,13 +1890,16 @@                             \terminate with _exit (or catch the ExitException yourself). See section\n\"\                             \Running a Subroutine in a Separate Process\" in the HsShellScript API\n\                             \documentation. Terminating with _exit " ++ show ec ++ " now.")+                      flush_outerr                       _exit ec)       , Handler $ (\(e::SomeException) -> do                      errm ("Child process quit with unexpected exception:\n" ++ show e)+                     flush_outerr                      _exit 1                   )       ] +   flush_outerr    _exit 0  

@@ -76,8 +76,6 @@            ]  -- main = mainwrapper $ do    seq args (return ()) 

@@ -1,9 +1,12 @@ import HsShellScript+import System.IO  main = mainwrapper $ do +   hSetBuffering stdout (BlockBuffering (Just 10000))+   hSetBuffering stderr (BlockBuffering (Just 10000))+    erg <- pipe_from $-      pipe_to "2\n3\n1" $-         exec "/usr/bin/sort" []+         exec "/schwurbel" []     putStrLn erg