aboutsummaryrefslogtreecommitdiff
path: root/Command/ImportFeed.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2015-05-22 22:41:36 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2015-05-22 22:41:36 -0400
commit280b59024768689feed03db4e7069e12f9605825 (patch)
tree2350b2747d669d44ebaafdb2b7fefe5b550b558b /Command/ImportFeed.hs
parent0c2026f3d4109e810b050090b44bb406b6a11954 (diff)
fromkey, registerurl: Allow urls to be specified instead of keys, and generate URL keys.
This is especially useful because the caller doesn't need to generate valid url keys, which involves some escaping of characters, and may involve taking a md5sum of the url if it's too long.
Diffstat (limited to 'Command/ImportFeed.hs')
-rw-r--r--Command/ImportFeed.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/ImportFeed.hs b/Command/ImportFeed.hs
index 6d3a1765b..4bc3f52f4 100644
--- a/Command/ImportFeed.hs
+++ b/Command/ImportFeed.hs
@@ -370,4 +370,4 @@ clearFeedProblem :: URLString -> Annex ()
clearFeedProblem url = void $ liftIO . tryIO . removeFile =<< feedState url
feedState :: URLString -> Annex FilePath
-feedState url = fromRepo . gitAnnexFeedState =<< fromUrl url Nothing
+feedState url = fromRepo $ gitAnnexFeedState $ fromUrl url Nothing