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

better readProcess

Browse source
This commit is contained in:
Joey Hess 2012-07-19 00:57:40 -04:00
parent 1db7d27a45
commit 9fc94d780b
6 changed files with 21 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Backend/SHA.hs
View file

@ -54,7 +54,7 @@ shaN shasize file filesize = do
case shaCommand shasize filesize of
Left sha -> liftIO $ sha <$> L.readFile file
Right command -> liftIO $ parse command . lines <$>
readProcess command (toCommand [File file]) ""
readProcess command (toCommand [File file])
where
parse command [] = bad command
parse command (l:_)