use subdir for addurl when it creates multiple files

The --file parameter specifies the subdir in this mode.
This commit is contained in:
Joey Hess 2014-12-11 16:09:56 -04:00
parent a941af0fe2
commit bce7e0dd96
3 changed files with 22 additions and 25 deletions

View file

@ -11,9 +11,8 @@ import Utility.Url
data UrlContents
-- An URL contains a file, whose size may be known.
-- A default filename will be provided, and can be overridded
-- or built on.
= UrlContents (Maybe Integer) (FilePath -> FilePath)
-- There might be a nicer filename to use.
= UrlContents (Maybe Integer) (Maybe FilePath)
-- Sometimes an URL points to multiple files, each accessible
-- by their own URL.
| UrlNested [(URLString, UrlContents)]
| UrlMulti [(URLString, Maybe Integer, FilePath)]