mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

converted ImportFeed

Browse source
This commit is contained in:
Joey Hess 2015-07-13 11:06:41 -04:00
parent aff4b9a3dc
commit 9c1a42873c
3 changed files with 47 additions and 36 deletions
Download patch file Download diff file Expand all files Collapse all files

22
Command/AddUrl.hs
View file

@ -61,14 +61,20 @@ optParser desc = AddUrlOptions
( long "pathdepth" <> metavar paramNumber
<> help "path components to use in filename"
))
<*> switch
( long "relaxed"
<> help "skip size check"
)
<*> switch
( long "raw"
<> help "disable special handling for torrents, quvi, etc"
)
<*> parseRelaxedOption
<*> parseRawOption
parseRelaxedOption :: Parser Bool
parseRelaxedOption = switch
( long "relaxed"
<> help "skip size check"
)
parseRawOption :: Parser Bool
parseRawOption = switch
( long "raw"
<> help "disable special handling for torrents, quvi, etc"
)
seek :: AddUrlOptions -> CommandSeek
seek o = forM_ (addUrls o) $ \u -> do