diff --git a/src-hxbrief/Main.hs b/src-hxbrief/Main.hs index 5784d9e..98eaa43 100644 --- a/src-hxbrief/Main.hs +++ b/src-hxbrief/Main.hs @@ -541,9 +541,21 @@ main = B.mainFromCmdParser $ do ["skip-any"] "REGEX" (B.flagHelpStr "drop lines containing this pattern, similar to `grep -v`") - label <- B.addFlagStringParams "" ["label"] "STRING" mempty - yield <- B.addFlagStringParams "y" ["yield"] "REGEX" mempty - yieldFull <- B.addFlagStringParams "" ["yield-any"] "REGEX" mempty + label <- B.addFlagStringParams "" ["label"] "STRING" mempty + yield <- B.addFlagStringParams + "y" + ["yield"] + "REGEX" + (B.flagHelpStr + "always fully retain lines starting with this pattern, disregarding skip/summarize" + ) + yieldFull <- B.addFlagStringParams + "" + ["yield-any"] + "REGEX" + (B.flagHelpStr + "always fully retain lines containing this pattern, disregarding skip/summarize" + ) omitSummary <- B.addSimpleBoolFlag "" ["omit-summary"] mempty tee <- B.addFlagStringParams ""