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

dev: Hledger.Utils.IO: getFlag helper, like getOpt

Browse Source
This commit is contained in:
Simon Michael 2025-07-17 07:51:05 -07:00
parent 0ea239503c
commit 01e0c34b85
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
hledger-lib/Hledger/Utils/IO.hs
View File

@ -52,6 +52,7 @@ module Hledger.Utils.IO (
-- * Command line parsing -- * Command line parsing
progArgs, progArgs,
getFlag,
getOpt, getOpt,
parseYN, parseYN,
parseYNA, parseYNA,
@ -500,6 +501,15 @@ progArgs = unsafePerformIO getArgs
-- a few cases involving --color (see useColorOnStdoutUnsafe) -- a few cases involving --color (see useColorOnStdoutUnsafe)
-- --debug -- --debug
-- | Given one or more long or short flag names,
-- report whether this flag is present in the command line.
-- Concatenated short flags (-a -b written as -ab) are not supported.
getFlag :: [String] -> IO Bool
getFlag names = do
let flags = map toFlag names
args <- getArgs
return $ any (`elem` args) flags
-- | Given one or more long or short option names, read the rightmost value of this option from the command line arguments. -- | Given one or more long or short option names, read the rightmost value of this option from the command line arguments.
-- If the value is missing raise an error. -- If the value is missing raise an error.
-- Concatenated short flags (-a -b written as -ab) are not supported. -- Concatenated short flags (-a -b written as -ab) are not supported.