diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-01-26 16:25:55 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-01-26 16:25:55 -0400 |
| commit | 4f050ca9b80d0565e408137f2422e808b82cfd11 (patch) | |
| tree | 5aca9688e49dee8915a962de4baf4c305ccbfa9e /Command/AddUrl.hs | |
| parent | 541178b499d084e4041ae4b9d62bf86f5a97c3ff (diff) | |
reorganize some files and imports
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 8027c4b6b..82b04f07b 100644 --- a/Command/AddUrl.hs +++ b/Command/AddUrl.hs @@ -21,7 +21,6 @@ import qualified Annex.Url as Url import qualified Backend.URL import Annex.Content import Logs.Web -import qualified Option import Types.Key import Types.KeySource import Config @@ -39,13 +38,13 @@ def = [notBareRepo $ withOptions [fileOption, pathdepthOption, relaxedOption] $ SectionCommon "add urls to annex"] fileOption :: Option -fileOption = Option.field [] "file" paramFile "specify what file the url is added to" +fileOption = fieldOption [] "file" paramFile "specify what file the url is added to" pathdepthOption :: Option -pathdepthOption = Option.field [] "pathdepth" paramNumber "path components to use in filename" +pathdepthOption = fieldOption [] "pathdepth" paramNumber "path components to use in filename" relaxedOption :: Option -relaxedOption = Option.flag [] "relaxed" "skip size check" +relaxedOption = flagOption [] "relaxed" "skip size check" seek :: CommandSeek seek ps = do |