allow building w/o rsync installed

rsync is needed to run, but may not be on the build machine; that's ok
This commit is contained in:
Joey Hess 2017-10-25 17:24:03 -04:00
parent 4a72b17bd0
commit 96734ba350
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 3 additions and 15 deletions

View file

@ -61,18 +61,6 @@ runTests (TestCase tname t : ts) = do
rest <- runTests ts
return $ c:rest
{- Tests that a command is available, aborting if not. -}
requireCmd :: ConfigKey -> String -> Test
requireCmd k cmdline = do
ret <- testCmd k cmdline
handle ret
where
handle r@(Config _ (BoolConfig True)) = return r
handle r = do
testEnd r
error $ "** the " ++ c ++ " command is required"
c = head $ words cmdline
{- Checks if a command is available by running a command line. -}
testCmd :: ConfigKey -> String -> Test
testCmd k cmdline = do