diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-10-17 16:02:05 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-10-17 16:02:05 -0400 |
| commit | 6c5e0ff683dd9e66f68c96b8775df2ac65281d3b (patch) | |
| tree | e84611b3349565bb8abf8d1debef5aa27ed25023 /Command/ImportFeed.hs | |
| parent | e7ed9289866753a5dfaf3454bd9345a271f5c208 (diff) | |
importfeed: Drop URL parameters from file extension.
Thanks, James MacMahon.
Diffstat (limited to 'Command/ImportFeed.hs')
| -rw-r--r-- | Command/ImportFeed.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/ImportFeed.hs b/Command/ImportFeed.hs index 498d5041c..8f3a60726 100644 --- a/Command/ImportFeed.hs +++ b/Command/ImportFeed.hs @@ -161,7 +161,7 @@ downloadFeed url performDownload :: ImportFeedOptions -> Cache -> ToDownload -> Annex Bool performDownload opts cache todownload = case location todownload of Enclosure url -> checkknown url $ - rundownload url (takeExtension url) $ \f -> do + rundownload url (takeWhile (/= '?') $ takeExtension url) $ \f -> do r <- Remote.claimingUrl url if Remote.uuid r == webUUID || rawOption opts then do |