diff options
author | Joey Hess <joey@kitenet.net> | 2010-10-10 15:41:35 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2010-10-10 15:41:35 -0400 |
commit | 7880dc16fef81bb6a8812c6b4e9578a6ae2b2879 (patch) | |
tree | 7661b3879b848b3b6bdd5924740b74923c991936 /BackendUrl.hs | |
parent | eb577ee37ff1d631aa3580a235b9954043d0fb27 (diff) |
update
Diffstat (limited to 'BackendUrl.hs')
-rw-r--r-- | BackendUrl.hs | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/BackendUrl.hs b/BackendUrl.hs index 9b4c83d61..1aa5224b5 100644 --- a/BackendUrl.hs +++ b/BackendUrl.hs @@ -4,6 +4,7 @@ module BackendUrl (backend) where import Backend +import GitRepo backend = Backend { name = "url", @@ -13,12 +14,12 @@ backend = Backend { } -- cannot generate url from filename -keyValue :: FilePath -> IO (Maybe Key) -keyValue k = return Nothing +keyValue :: GitRepo -> FilePath -> IO (Maybe Key) +keyValue repo file = return Nothing -- cannot store to urls -dummyStore :: FilePath -> Key -> IO (Bool) -dummyStore file url = return False +dummyStore :: GitRepo -> FilePath -> Key -> IO (Bool) +dummyStore repo file url = return False downloadUrl :: IO Key -> FilePath -> IO (Bool) -downloadUrl url file = error "unimplemented" +downloadUrl url file = error "downloadUrl unimplemented" |