diff options
author | Joey Hess <joey@kitenet.net> | 2010-10-10 18:05:37 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2010-10-10 18:05:37 -0400 |
commit | e5514e0cb0809848645814e8c1f67cd89cb16c4f (patch) | |
tree | 7041c952f9fa00fc60a40fa8e88fa1cd54818706 /Backend.hs | |
parent | dce9c2e0804d2c94f46dcac8c9884766bb22dcc7 (diff) |
update
Diffstat (limited to 'Backend.hs')
-rw-r--r-- | Backend.hs | 14 |
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) ++ "\" }" |