diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-11-22 14:12:44 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-11-22 14:12:44 -0400 |
| commit | 90ab151745736b2e3cd6ce0a6588df02f8b1b15c (patch) | |
| tree | 785a8b1420c856102ce2f38e04e43b8d7c16c1df /Utility/Quvi.hs | |
| parent | a890fd80f836c9c1ac3874394703f93807a3fe9d (diff) | |
Avoid misbehavior when addurl is used with quvi 0.9.
In 0.9, -v shows version, rather than controlling verbosity.
Still need to port to 0.9, this just avoids massively confusing addurl when
quvi prints its version and exits successfully, on urls that it cannot be
used with.
Diffstat (limited to 'Utility/Quvi.hs')
| -rw-r--r-- | Utility/Quvi.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Utility/Quvi.hs b/Utility/Quvi.hs index 5df1a4da7..cce02d646 100644 --- a/Utility/Quvi.hs +++ b/Utility/Quvi.hs @@ -68,10 +68,10 @@ check ps url = maybe False (not . null . pageLinks) <$> query ps url {- Checks if an url is supported by quvi, without hitting it, or outputting - anything. Also returns False if quvi is not installed. -} supported :: URLString -> IO Bool -supported url = boolSystem "quvi" [Params "-v mute --support", Param url] +supported url = boolSystem "quvi" [Params "--verbosity mute --support", Param url] quiet :: CommandParam -quiet = Params "-v quiet" +quiet = Params "--verbosity quiet" noredir :: CommandParam noredir = Params "-e -resolve" |