diff options
Diffstat (limited to 'Locations/UserConfig.hs')
-rw-r--r-- | Locations/UserConfig.hs | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/Locations/UserConfig.hs b/Locations/UserConfig.hs index 9b04aed61..5da58eb9f 100644 --- a/Locations/UserConfig.hs +++ b/Locations/UserConfig.hs @@ -7,10 +7,9 @@ module Locations.UserConfig where +import Common import Utility.FreeDesktop -import System.FilePath - {- ~/.config/git-annex/file -} userConfigFile :: FilePath -> IO FilePath userConfigFile file = do @@ -24,3 +23,9 @@ autoStartFile = userConfigFile "autostart" - has installed it to some aweful non-PATH location. -} programFile :: IO FilePath programFile = userConfigFile "program" + +{- Returns a command to run for git-annex. -} +readProgramFile :: IO FilePath +readProgramFile = do + programfile <- programFile + catchDefaultIO (readFile programfile) "git-annex" |