hlint
This commit is contained in:
parent
85f0992c03
commit
942d8f7298
14 changed files with 20 additions and 21 deletions
|
@ -114,6 +114,6 @@ getDiskReserve = fromMaybe megabyte . readSize dataUnits
|
|||
getHttpHeaders :: Annex [String]
|
||||
getHttpHeaders = do
|
||||
cmd <- getConfig (annexConfig "http-headers-command") ""
|
||||
if (null cmd)
|
||||
if null cmd
|
||||
then fromRepo $ Git.Config.getList "annex.http-headers"
|
||||
else lines . snd <$> liftIO (pipeFrom "sh" ["-c", cmd])
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue