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

updat

Browse source
This commit is contained in:
Joey Hess 2010-11-01 22:50:53 -04:00
parent 13514b6afc
commit 58c89565e9
2 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Backend/SHA1.hs
View file

@ -14,6 +14,7 @@ import System.IO
import qualified Backend.File
import TypeInternals
import Core
backend :: Backend
backend = Backend.File.backend {
@ -23,7 +24,9 @@ backend = Backend.File.backend {
-- checksum the file to get its key
keyValue :: FilePath -> Annex (Maybe Key)
keyValue file = liftIO $ pOpen ReadFromPipe "sha1sum" [file] $ \h -> do
keyValue file = do
showNote "checksum"
liftIO $ pOpen ReadFromPipe "sha1sum" [file] $ \h -> do
line <- hGetLine h
let bits = split " " line
if (null bits)