BackendUrl.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

{- git-annex "url" backend
 - -}

module BackendUrl (backend) where

import Control.Monad.State
import System.Cmd
import IO
import Types

backend = Backend {
	name = "url",
	getKey = keyValue,
	storeFileKey = dummyStore,
	retrieveKeyFile = downloadUrl,
	removeKey = dummyRemove
}

-- cannot generate url from filename
keyValue :: FilePath -> Annex (Maybe Key)
keyValue file = return Nothing

-- cannot change url contents
dummyStore :: FilePath -> Key -> Annex Bool
dummyStore file url = return False
dummyRemove :: Key -> Annex Bool
dummyRemove url = return False

downloadUrl :: Key -> FilePath -> Annex Bool
downloadUrl url file = do
	liftIO $ putStrLn $ "download: " ++ (show url)
	result <- liftIO $ try $ rawSystem "curl" ["-#", "-o", file, (show url)]
	case (result) of
		Left _ -> return False
		Right _ -> return True