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

;run: require -- before first command (+test for that)

Browse Source
This commit is contained in:
Dmitry Astapov 2025-03-06 20:37:38 +00:00 committed by Simon Michael
parent b031144961
commit 9c63b36d88
2 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
hledger/Hledger/Cli/Commands/Run.hs
View File

@ -89,7 +89,10 @@ run defaultJournalOverride findBuiltinCommand cliopts@CliOpts{rawopts_=rawopts}
allAreFiles <- and <$> mapM (doesFileExist . snd . splitReaderPrefix) args allAreFiles <- and <$> mapM (doesFileExist . snd . splitReaderPrefix) args
case allAreFiles of case allAreFiles of
True -> runFromFiles key findBuiltinCommand args True -> runFromFiles key findBuiltinCommand args
False -> runFromArgs key findBuiltinCommand args False ->
case args of
"--":_ -> runFromArgs key findBuiltinCommand args
_ -> error' $ "'run' expects '--' before first command, found none"
-- | The actual repl command. -- | The actual repl command.
repl :: (String -> Maybe (Mode RawOpts, CliOpts -> Journal -> IO ())) -> CliOpts -> IO () repl :: (String -> Maybe (Mode RawOpts, CliOpts -> Journal -> IO ())) -> CliOpts -> IO ()

9
hledger/test/run.test
View File

@ -1,5 +1,14 @@
# * run command # * run command
# ** 0. Run requires -- before first command
<
2017-01-01 groceries
assets:cash -$100
expenses:food
$ hledger run -f- register cash
>2 /hledger: Error: 'run' expects '--' before first command, found none/
>=1
# ** 0. Run one command from command line # ** 0. Run one command from command line
< <
2017-01-01 groceries 2017-01-01 groceries