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

tweak

Browse source
This commit is contained in:
Joey Hess 2010-11-02 02:24:19 -04:00
parent 790613333c
commit bdb7ed76cf
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Backend/SHA1.hs
View file

@ -25,7 +25,7 @@ backend = Backend.File.backend {
-- checksum the file to get its key -- checksum the file to get its key
keyValue :: FilePath -> Annex (Maybe Key) keyValue :: FilePath -> Annex (Maybe Key)
keyValue file = do keyValue file = do
showNote "checksum" showNote "checksum..."
liftIO $ pOpen ReadFromPipe "sha1sum" [file] $ \h -> do liftIO $ pOpen ReadFromPipe "sha1sum" [file] $ \h -> do
line <- hGetLine h line <- hGetLine h
let bits = split " " line let bits = split " " line