slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

haddocks

Browse Source
This commit is contained in:
Simon Michael 2011-08-26 00:46:52 +00:00
parent 1cf1c7f506
commit 7616ed9b8e
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
hledger/Hledger/Cli/Options.hs
View File

@ -331,9 +331,14 @@ getHledgerCliOpts addons = do
-- utils -- utils
-- | Get the unique suffixes (without hledger-) of hledger-* executables
-- found in the current user's PATH, or the empty list if there is any
-- problem.
getHledgerAddonCommands :: IO [String] getHledgerAddonCommands :: IO [String]
getHledgerAddonCommands = map (drop (length progname + 1)) `fmap` getHledgerProgramsInPath getHledgerAddonCommands = map (drop (length progname + 1)) `fmap` getHledgerProgramsInPath
-- | Get the unique names of hledger-* executables found in the current
-- user's PATH, or the empty list if there is any problem.
getHledgerProgramsInPath :: IO [String] getHledgerProgramsInPath :: IO [String]
getHledgerProgramsInPath = do getHledgerProgramsInPath = do
pathdirs <- splitOn ":" `fmap` getEnv "PATH" pathdirs <- splitOn ":" `fmap` getEnv "PATH"