Command 0.0.6 → 0.0.7

raw patch · 2 files changed

+22/−2 lines, 2 filesdep +directorydep ~processPVP ok

version bump matches the API change (PVP)

Dependencies added: directory

Dependency ranges changed: process

API changes (from Hackage documentation)

+ System.Command: inDirectory :: FilePath -> (FilePath -> IO a) -> IO a

+ System.Command: inDirectory' :: FilePath -> IO a -> IO a

Files

Command.cabal +3/−2
src/System/Command.hs +19/−0

Command.cabal view

@@ -1,5 +1,5 @@ Name:               Command-Version:            0.0.6+Version:            0.0.7 License:            BSD3 License-File:       LICENSE Author:             Tony Morris <ʇǝu˙sıɹɹoɯʇ@ןןǝʞsɐɥ>@@ -22,7 +22,8 @@ Library   Build-Depends:                     base < 5 && >= 4-                    , process+                    , process >= 1.0+                    , directory >= 1.1    GHC-Options:                           -Wall

src/System/Command.hs view

@@ -42,10 +42,14 @@ , waitForProcess , getProcessExitCode , P.terminateProcess+  -- * Execution combinators+, inDirectory+, inDirectory' ) where  import qualified System.Exit as E import qualified System.Process as P+import System.Directory import Data.Data import Data.Monoid import Control.Arrow@@ -317,6 +321,21 @@ getProcessExitCode =   (fmap . fmap) fromExitCode . P.getProcessExitCode +inDirectory ::+  FilePath+  -> (FilePath -> IO a)+  -> IO a+inDirectory d k =+  do c <- getCurrentDirectory+     setCurrentDirectory d+     k c `finally` setCurrentDirectory c++inDirectory' ::+  FilePath+  -> IO a+  -> IO a+inDirectory' p =+  inDirectory p . const -- not exported  toExitCode ::