diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2017-02-20 15:14:56 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-02-20 15:25:02 -0400 |
| commit | dc65347b838b4b55f649cc780b33d51f5e8cb5bf (patch) | |
| tree | 18ebd7ba80e542e5710b19de8862c9e988b31d92 /Build | |
| parent | 446659676aae40aaa1689f95540411af4b0e8c48 (diff) | |
Run wget with -nv instead of -q, so it will display HTTP errors.
This adds one extra line of output when a download is successful,
after the progress bar. I don't much like that, but wget does not provide a
way to show HTTP errors without it.
Diffstat (limited to 'Build')
| -rw-r--r-- | Build/Configure.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Build/Configure.hs b/Build/Configure.hs index 616dcc57d..7c7c2efe0 100644 --- a/Build/Configure.hs +++ b/Build/Configure.hs @@ -34,7 +34,7 @@ tests = , TestCase "rsync" $ requireCmd "rsync" "rsync --version >/dev/null" , TestCase "curl" $ testCmd "curl" "curl --version >/dev/null" , TestCase "wget" $ testCmd "wget" "wget --version >/dev/null" - , TestCase "wget supports -q --show-progress" checkWgetQuietProgress + , TestCase "wget unclutter options" checkWgetUnclutter , TestCase "bup" $ testCmd "bup" "bup --version >/dev/null" , TestCase "nice" $ testCmd "nice" "nice true >/dev/null" , TestCase "ionice" $ testCmd "ionice" "ionice -c3 true >/dev/null" @@ -105,8 +105,8 @@ getGitVersion = go =<< getEnv "FORCE_GIT_VERSION" error $ "installed git version " ++ show v ++ " is too old! (Need " ++ show oldestallowed ++ " or newer)" return $ Config "gitversion" $ StringConfig $ show v -checkWgetQuietProgress :: Test -checkWgetQuietProgress = Config "wgetquietprogress" . BoolConfig +checkWgetUnclutter :: Test +checkWgetUnclutter = Config "wgetunclutter" . BoolConfig . maybe False (>= normalize "1.16") <$> getWgetVersion |