diff options
Diffstat (limited to 'Command/AddUrl.hs')
| -rw-r--r-- | Command/AddUrl.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/Command/AddUrl.hs b/Command/AddUrl.hs index 6f14ed861..aaa112803 100644 --- a/Command/AddUrl.hs +++ b/Command/AddUrl.hs @@ -64,9 +64,8 @@ seek us = do UrlContents sz mkf -> void $ commandAction $ startRemote r relaxed optfile pathdepth url sz mkf - UrlNested l -> - forM_ l $ \(url', c) -> - handlecontents url' c + UrlNested l -> forM_ l $ + uncurry handlecontents res <- tryNonAsync $ maybe (error "unable to checkUrl") (flip id u) @@ -210,7 +209,7 @@ addUrlChecked relaxed url u checkexistssize key setUrlPresent u key url next $ return True | otherwise = ifM (elem url <$> getUrls key) - ( stop + ( next $ return True -- nothing to do , do (exists, samesize) <- checkexistssize key if exists && samesize |