better error message

1 files changed, 5 insertions, 2 deletions

diff --git a/Utility/Quvi.hs b/Utility/Quvi.hs
index 55a247cf3..5df1a4da7 100644
--- a/Utility/Quvi.hs
+++ b/Utility/Quvi.hs
@@ -41,9 +41,12 @@ type Query a = [CommandParam] -> URLString -> IO a
 
 {- Throws an error when quvi is not installed. -}
 forceQuery :: Query (Maybe Page)
-forceQuery ps url = flip catchNonAsync (const notinstalled) (query' ps url)
+forceQuery ps url = query' ps url `catchNonAsync` onerr
   where
-  	notinstalled = error "quvi failed, or is not installed"
+	onerr _ = ifM (inPath "quvi")
+		( error "quvi failed"
+		, error "quvi is not installed"
+		)
 
 {- Returns Nothing if the page is not a video page, or quvi is not
  - installed. -}