redo 0.1.0 → 0.2.0

raw patch · 2 files changed

+4/−3 lines, 2 files

Files

• redo.cabal +1/−1
• redo.hs +3/−2

@@ -1,5 +1,5 @@ name:                redo-version:             0.1.0+version:             0.2.0 synopsis:            software build system, make replacement, implementation of djb's redo description:         redo builds a target file from source files using a "do" script. It also tracks when source files have changed and rebuilds target files as necessary. homepage:            https://github.com/jekor/redo

@@ -10,7 +10,7 @@ import GHC.IO.Exception (IOErrorType(..)) import System.Directory (renameFile, removeFile, doesFileExist, getDirectoryContents, removeDirectoryRecursive, createDirectoryIfMissing, getCurrentDirectory, setCurrentDirectory) import System.Environment (getArgs, getEnvironment, getProgName, lookupEnv)-import System.Exit (ExitCode(..))+import System.Exit (ExitCode(..), exitWith) import System.FilePath (hasExtension, replaceBaseName, takeBaseName, (</>), splitFileName) import System.IO (hPutStrLn, stderr, hGetLine, withFile, IOMode(..), hFileSize) import System.IO.Error (ioeGetErrorType, isDoesNotExistError)@@ -41,7 +41,7 @@   unless upToDate' $ maybe missingDo redo' =<< doPath target  where redo' :: FilePath -> IO ()        redo' path = do-         hPutStrLn stderr $ "redo " ++ show (dir </> target)+         hPutStrLn stderr $ "redo " ++ (if dir == "./" then "" else dir) ++ target          catchJust (guard . isDoesNotExistError)                    (removeDirectoryRecursive metaDepsDir)                    (\_ -> return ())@@ -59,6 +59,7 @@                else removeFile tmp            ExitFailure code -> do hPutStrLn stderr $ "Redo script exited with non-zero exit code: " ++ show code                                   removeFile tmp+                                  exitWith $ ExitFailure code        tmp = target ++ "---redoing"        metaDepsDir = metaDir </> target        missingDo = do