summaryrefslogtreecommitdiff
path: root/Backend.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2010-10-13 03:41:12 -0400
committerGravatar Joey Hess <joey@kitenet.net>2010-10-13 03:41:12 -0400
commit99b2029236248f6b4ce68e126b70fa0855fac37f (patch)
tree74e373992ecfac6543245f4ab9f86bf54fdf8d11 /Backend.hs
parentcc5cf0093ea1aacc4c5460dfdd4d35f2963687bd (diff)
key conversion back from file bugfixes
Diffstat (limited to 'Backend.hs')
-rw-r--r--Backend.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Backend.hs b/Backend.hs
index 2697f43d4..bc7eb206f 100644
--- a/Backend.hs
+++ b/Backend.hs
@@ -69,5 +69,5 @@ lookupFile file = do
lookup = do
l <- readSymbolicLink file
return $ Just (k l, b l)
- k l = Key $ takeFileName $ l
+ k l = fileKey $ takeFileName $ l
b l = lookupBackendName $ takeFileName $ parentDir $ l