strip newlines in programfile
Indeed, ignore lines after the first. Use might create it with echo..
This commit is contained in:
parent
2c42e70f6c
commit
f3ef6fe6a7
1 changed files with 4 additions and 1 deletions
|
@ -54,4 +54,7 @@ programFile = userConfigFile "program"
|
|||
readProgramFile :: IO FilePath
|
||||
readProgramFile = do
|
||||
programfile <- programFile
|
||||
catchDefaultIO "git-annex" $ readFile programfile
|
||||
catchDefaultIO cmd $
|
||||
fromMaybe cmd . headMaybe . lines <$> readFile programfile
|
||||
where
|
||||
cmd = "git-annex"
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue