mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

use basename as key

Browse source
This commit is contained in:
Joey Hess 2010-10-15 16:52:47 -04:00
parent 395625d0a7
commit 1f585912e2
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Backend/Worm.hs
View file

@ -5,12 +5,14 @@ module Backend.Worm (backend) where
import qualified Backend.File import qualified Backend.File
import BackendTypes import BackendTypes
import Utility
import System.FilePath
backend = Backend.File.backend { backend = Backend.File.backend {
name = "WORM", name = "WORM",
getKey = keyValue getKey = keyValue
} }
-- direct mapping from filename to key -- direct mapping from basename of filename to key
keyValue :: FilePath -> Annex (Maybe Key) keyValue :: FilePath -> Annex (Maybe Key)
keyValue file = return $ Just $ Key ((name backend), file) keyValue file = return $ Just $ Key ((name backend), (takeFileName file))