fix misleading helper function name

noworktreeitems was false for NoWorkTreeItems which was hard to understand.

Sponsored-by: Dartmouth College's DANDI project
This commit is contained in:
Joey Hess 2023-01-17 14:25:38 -04:00
parent ce241f9aa9
commit a522a41a42
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -234,7 +234,7 @@ withKeyOptions' ko auto mkkeyaction fallbackaction worktreeitems = do
bare <- fromRepo Git.repoIsLocalBare bare <- fromRepo Git.repoIsLocalBare
when (auto && bare) $ when (auto && bare) $
giveup "Cannot use --auto in a bare repository" giveup "Cannot use --auto in a bare repository"
case (noworktreeitems, ko) of case (nospecifiedworktreeitems, ko) of
(True, Nothing) (True, Nothing)
| bare -> nofilename $ noauto runallkeys | bare -> nofilename $ noauto runallkeys
| otherwise -> fallbackaction worktreeitems | otherwise -> fallbackaction worktreeitems
@ -260,7 +260,7 @@ withKeyOptions' ko auto mkkeyaction fallbackaction worktreeitems = do
, a , a
) )
noworktreeitems = case worktreeitems of nospecifiedworktreeitems = case worktreeitems of
WorkTreeItems [] -> True WorkTreeItems [] -> True
WorkTreeItems _ -> False WorkTreeItems _ -> False
NoWorkTreeItems -> False NoWorkTreeItems -> False