diff options
Diffstat (limited to 'Utility/Quvi.hs')
| -rw-r--r-- | Utility/Quvi.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Utility/Quvi.hs b/Utility/Quvi.hs index 228ff7809..cf3a23cfd 100644 --- a/Utility/Quvi.hs +++ b/Utility/Quvi.hs @@ -113,7 +113,7 @@ supported Quvi04 url = boolSystem "quvi" supported Quvi09 url = (firstlevel <&&> secondlevel) `catchNonAsync` (\_ -> return False) where - firstlevel = case uriAuthority =<< parseURIRelaxed url of + firstlevel = case uriAuthority =<< parseURIRelaxed url of Nothing -> return False Just auth -> do let domain = map toLower $ uriRegName auth |