diff --git a/README.md b/README.md index 7d713021cccea8f1faea082d5f8d64f3c56aed7c..4cf78770e2660aaed6876850bdcd59097e5ad5de 100644 --- a/README.md +++ b/README.md @@ -14,7 +14,7 @@ stack build You can also use the scripts in the `bin`-directory (all scripts will rebuild the project if required): ``` # Launch as swaybar status command while redirecting stderr to shell -./bin/run-sway +./bin/run-sway default # Run the binary directly (mostly used to control the bar via rpc) ./bin/run --help diff --git a/src/QBar/Cli.hs b/src/QBar/Cli.hs index 702c8a30917cdf42f2a1872b87f417702c95f970..7ee51a0f61d387178cfc3e556c9858ba520acec8 100644 --- a/src/QBar/Cli.hs +++ b/src/QBar/Cli.hs @@ -60,11 +60,8 @@ pipeClientParser = do barConfigurationParser :: Parser (BarIO ()) barConfigurationParser = do - blocks <- many blockParser - pure $ case blocks of - -- Load default config if no blocks are selected on the command line - [] -> defaultBarConfig - l -> sequence_ l + blocks <- some blockParser + pure $ sequence_ blocks blockParser :: Parser (BarIO ()) blockParser = subparser (