git-annex/Types/UrlContents.hs

{- git-annex URL contents
 -
 - Copyright 2014 Joey Hess <id@joeyh.name>
 -
 - Licensed under the GNU AGPL version 3 or higher.
 -}

module Types.UrlContents (
	UrlContents(..),
) where

import Utility.Url

data UrlContents
	-- An URL contains a file, whose size may be known.
	-- 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.
	| UrlMulti [(URLString, Maybe Integer, FilePath)]
Expand checkurl to support recommended filename, and multi-file-urls This commit was sponsored by an anonymous bitcoiner. 2014-12-11 15:32:42 -04:00			`{- git-annex URL contents`
			`-`
update my email address and homepage url 2015-01-21 12:50:09 -04:00			`- Copyright 2014 Joey Hess <id@joeyh.name>`
Expand checkurl to support recommended filename, and multi-file-urls This commit was sponsored by an anonymous bitcoiner. 2014-12-11 15:32:42 -04:00			`-`
update licenses from GPL to AGPL This does not change the overall license of the git-annex program, which was already AGPL due to a number of sources files being AGPL already. Legally speaking, I'm adding a new license under which these files are now available; I already released their current contents under the GPL license. Now they're dual licensed GPL and AGPL. However, I intend for all my future changes to these files to only be released under the AGPL license, and I won't be tracking the dual licensing status, so I'm simply changing the license statement to say it's AGPL. (In some cases, others wrote parts of the code of a file and released it under the GPL; but in all cases I have contributed a significant portion of the code in each file and it's that code that is getting the AGPL license; the GPL license of other contributors allows combining with AGPL code.) 2019-03-13 15:48:14 -04:00			`- Licensed under the GNU AGPL version 3 or higher.`
Expand checkurl to support recommended filename, and multi-file-urls This commit was sponsored by an anonymous bitcoiner. 2014-12-11 15:32:42 -04:00			`-}`

sanitize filepaths provided by checkUrl 2014-12-11 20:08:49 -04:00			`module Types.UrlContents (`
			`UrlContents(..),`
			`) where`
Expand checkurl to support recommended filename, and multi-file-urls This commit was sponsored by an anonymous bitcoiner. 2014-12-11 15:32:42 -04:00
			`import Utility.Url`

			`data UrlContents`
			`-- An URL contains a file, whose size may be known.`
use subdir for addurl when it creates multiple files The --file parameter specifies the subdir in this mode. 2014-12-11 16:09:56 -04:00			`-- There might be a nicer filename to use.`
remove SafeFilePath Move sanitizeFilePath call to where fromSafeFilePath had been. 2020-05-11 14:04:56 -04:00			`= UrlContents (Maybe Integer) (Maybe FilePath)`
Expand checkurl to support recommended filename, and multi-file-urls This commit was sponsored by an anonymous bitcoiner. 2014-12-11 15:32:42 -04:00			`-- Sometimes an URL points to multiple files, each accessible`
			`-- by their own URL.`
remove SafeFilePath Move sanitizeFilePath call to where fromSafeFilePath had been. 2020-05-11 14:04:56 -04:00			`\| UrlMulti [(URLString, Maybe Integer, FilePath)]`