This commit is contained in:
Joey Hess 2011-02-28 16:25:31 -04:00
parent fcdc4797a9
commit 4cd96ad2db
8 changed files with 36 additions and 36 deletions

View file

@ -32,7 +32,7 @@ backend = Backend.File.backend {
sha1 :: FilePath -> Annex String
sha1 file = do
showNote "checksum..."
liftIO $ pOpen ReadFromPipe "sha1sum" (toShell [File file]) $ \h -> do
liftIO $ pOpen ReadFromPipe "sha1sum" (toCommand [File file]) $ \h -> do
line <- hGetLine h
let bits = split " " line
if null bits