effectful-cli 0.2.1.0 → 0.2.2.0

raw patch · 4 files changed

+25/−2 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• CHANGELOG.md +6/−0
• effectful-cli.cabal +1/−1
• src/Data/CLI/Impl.hs +10/−0
• test/Spec.hs +8/−1

@@ -1,3 +1,9 @@+## [2.2.0](https://github.com/haskell-github-trust/effectful-cli/compare/2.1.0...2.2.0) (2026-10-27)++### Features++* add reversible cli switches ([28c1b75](https://github.com/haskell-github-trust/effectful-cli/commit/28c1b75708fafd8f497d2bc0912ff7be4760a8d0))+ ## [2.1.0](https://github.com/haskell-github-trust/effectful-cli/compare/2.0.0...2.1.0) (2026-10-26)  ### Features

@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack  name:           effectful-cli-version:        0.2.1.0+version:        0.2.2.0 synopsis:       CLI helpers for the effectful ecosystem description:    Please see the README at https://github.com/haskell-github-trust/effectful-cli category:       CLI

@@ -6,6 +6,7 @@   noArgs,   forceSwitch,   noopSwitch,+  reversibleSwitch,   uuidArg,   mkCommand,   mkCommands,@@ -69,6 +70,15 @@ -- @since 0.1.0.0 noopSwitch :: Parser Bool noopSwitch = switch (short 'n' <> long "noop" <> help "do not perform any real action")++-- | @--name@/@--no-name@ switch pair; the last occurrence wins, otherwise the default.+--+-- @since 0.2.2.0+reversibleSwitch :: Bool -> String -> String -> Parser Bool+reversibleSwitch def name h =+  last+    <$> some (flag' True (long name <> help h) <|> flag' False (long ("no-" <> name) <> hidden))+      <|> pure def  -- | UUID given as a positional argument or @-u@/@--uuid@. --

@@ -1,7 +1,7 @@ {-# LANGUAGE DataKinds #-} {-# LANGUAGE OverloadedStrings #-} -import Data.CLI.Impl (fromParsec)+import Data.CLI.Impl (fromParsec, reversibleSwitch) import Data.Error.CLI (CLIError (..), displayCLIError) import Effectful (Eff, IOE, liftIO, runEff) import Effectful.CLI.Conc (batchConcurrentlyWithIndex)@@ -78,3 +78,10 @@      it "rejects an invalid input" $       parse ["ko"] `shouldBe` Nothing++  describe "reversibleSwitch"+    $ it "uses the default or the last occurrence"+    $ let p = info (reversibleSwitch True "labels" "show labels") mempty+          parse = getParseResult . execParserPure defaultPrefs p+       in fmap parse [[], ["--no-labels"], ["--no-labels", "--labels"], ["--labels", "--no-labels"]]+            `shouldBe` fmap Just [True, False, True, False]