summaryrefslogtreecommitdiff
path: root/BackendUrl.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2010-10-10 15:41:35 -0400
committerGravatar Joey Hess <joey@kitenet.net>2010-10-10 15:41:35 -0400
commit7880dc16fef81bb6a8812c6b4e9578a6ae2b2879 (patch)
tree7661b3879b848b3b6bdd5924740b74923c991936 /BackendUrl.hs
parenteb577ee37ff1d631aa3580a235b9954043d0fb27 (diff)
update
Diffstat (limited to 'BackendUrl.hs')
-rw-r--r--BackendUrl.hs11
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"