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

bugfixes

Browse source
This commit is contained in:
Joey Hess 2012-04-22 01:20:17 -04:00
parent f8fc79cf58
commit 42e4145a17
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Config.hs
View file

@ -101,7 +101,7 @@ getDiskReserve = fromMaybe megabyte . readSize dataUnits
- splitting it into lines. -}
getHttpHeaders :: Annex [String]
getHttpHeaders = do
cmd <- getConfig "annex.httpheaders-command" ""
cmd <- getConfig "annex.http-headers-command" ""
if (null cmd)
then fromRepo $ Git.Config.getList "annex.httpheaders"
then fromRepo $ Git.Config.getList "annex.http-headers"
else lines . snd <$> liftIO (pipeFrom "sh" ["-c", cmd])