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

strip newlines in programfile

Browse source 
Indeed, ignore lines after the first.

Use might create it with echo..
This commit is contained in:
Joey Hess 2013-04-23 11:41:52 -04:00
parent 2c42e70f6c
commit f3ef6fe6a7
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Config/Files.hs
View file

@ -54,4 +54,7 @@ programFile = userConfigFile "program"
readProgramFile :: IO FilePath readProgramFile :: IO FilePath
readProgramFile = do readProgramFile = do
programfile <- programFile programfile <- programFile
catchDefaultIO "git-annex" $ readFile programfile catchDefaultIO cmd $
fromMaybe cmd . headMaybe . lines <$> readFile programfile
where
cmd = "git-annex"