hexagoxel
/
hxtools
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

hxbrief: Add flag "--omitSummary" to omit summary before exit

master
Lennart Spitzner 2022-02-24 19:00:09 +00:00
parent 7ff33187c8
commit 7e97c65716
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src-hxbrief/Main.hs
View File

@ -21,6 +21,7 @@ import Control.Exception ( AsyncException(UserInterrupt)
import Control.Monad ( forM_ import Control.Monad ( forM_
, forever , forever
, replicateM , replicateM
, unless
, when , when
, zipWithM_ , zipWithM_
) )
@ -419,6 +420,7 @@ main = B.mainFromCmdParser $ do
conflateBoth <- B.addSimpleBoolFlag "" ["conflate"] mempty conflateBoth <- B.addSimpleBoolFlag "" ["conflate"] mempty
summarize <- B.addFlagStringParams "s" ["summarize"] "PATTERN" mempty summarize <- B.addFlagStringParams "s" ["summarize"] "PATTERN" mempty
skip <- B.addFlagStringParams "x" ["skip"] "PATTERN" mempty skip <- B.addFlagStringParams "x" ["skip"] "PATTERN" mempty
omitSummary <- B.addSimpleBoolFlag "" ["omit-summary"] mempty
-- section <- B.addSimpleBoolFlag "" ["section"] mempty -- section <- B.addSimpleBoolFlag "" ["section"] mempty
B.reorderStop B.reorderStop
rest <- B.addParamRestOfInputRaw "COMMAND" mempty <&> \case rest <- B.addParamRestOfInputRaw "COMMAND" mempty <&> \case
@ -579,7 +581,7 @@ main = B.mainFromCmdParser $ do
pure (lastLine, ecMay) pure (lastLine, ecMay)
flushConcurrentOutput flushConcurrentOutput
outputConcurrent lastLine unless omitSummary $ outputConcurrent lastLine
case ecMay of case ecMay of
Nothing -> throwIO UserInterrupt -- essentially re-throw Nothing -> throwIO UserInterrupt -- essentially re-throw
Just ec -> exitWith ec Just ec -> exitWith ec