rename
This commit is contained in:
parent
fcdc4797a9
commit
4cd96ad2db
8 changed files with 36 additions and 36 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue