aboutsummaryrefslogtreecommitdiff
path: root/Backend.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2010-10-10 18:05:37 -0400
committerGravatar Joey Hess <joey@kitenet.net>2010-10-10 18:05:37 -0400
commite5514e0cb0809848645814e8c1f67cd89cb16c4f (patch)
tree7041c952f9fa00fc60a40fa8e88fa1cd54818706 /Backend.hs
parentdce9c2e0804d2c94f46dcac8c9884766bb22dcc7 (diff)
update
Diffstat (limited to 'Backend.hs')
-rw-r--r--Backend.hs14
1 files changed, 1 insertions, 13 deletions
diff --git a/Backend.hs b/Backend.hs
index e01f12239..93ceee234 100644
--- a/Backend.hs
+++ b/Backend.hs
@@ -22,19 +22,7 @@ import System.Directory
import Locations
import GitRepo
import Utility
-
-type Key = String
-
-data Backend = Backend {
- -- name of this backend
- name :: String,
- -- converts a filename to a key
- getKey :: GitRepo -> FilePath -> IO (Maybe Key),
- -- stores a file's contents to a key
- storeFileKey :: GitRepo -> FilePath -> Key -> IO (Bool),
- -- retrieves a key's contents to a file
- retrieveKeyFile :: IO Key -> FilePath -> IO (Bool)
-}
+import Types
instance Show Backend where
show backend = "Backend { name =\"" ++ (name backend) ++ "\" }"