prompt-hs 1.0.3.1 → 1.1.0.0

raw patch · 3 files changed

+10/−21 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• CHANGELOG.md +4/−0
• prompt-hs.cabal +1/−1
• src/System/Prompt.hs +5/−20

@@ -19,3 +19,7 @@ ## Version 1.0.3.1 (2025-07-14)  * Add support for GHC 9.10++## Version 1.1.0.0 (2025-07-14)++* Remove initialSelectionChoosableItem class function; it didn't always have a sensible implementation and isn't needed

@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack  name:           prompt-hs-version:        1.0.3.1+version:        1.1.0.0 synopsis:       A user-friendly, dependently-typed library for asking your users questions description:    A library making use of the terminal package to prompt users for answers in a CLI context.                 .

@@ -118,16 +118,10 @@   -- | Display the option in a user-friendly manner   chooseableItemText :: a -> Text -  -- | Get the initially-selected value of `a`-  initialSelectionChooseableItem :: a- instance (Chooseable a) => ChooseableItem a where   chooseableItemText :: a -> Text   chooseableItemText = showChooseable -  initialSelectionChooseableItem :: a-  initialSelectionChooseableItem = initialSelectionChooseable- -- | Returns `a` if the question is required, or `Maybe` `a` otherwise. -- -- Represents what you'd expect to be the response to the given question, wrapped in `Maybe` for `Optional` questions.@@ -397,11 +391,7 @@       pcsHoveredOption = Just initialSelectionChooseable     } -initialPromptChoiceStateFromSet ::-  (ChooseableItem a) =>-  Confirmation ->-  NonEmpty a ->-  PromptChoiceState 'SRequired a+initialPromptChoiceStateFromSet :: Confirmation -> NonEmpty a -> PromptChoiceState 'SRequired a initialPromptChoiceStateFromSet confirmation options =   PromptChoiceState     { pcsConfirmation = confirmation,@@ -409,12 +399,10 @@       pcsInstruction = ChoiceInstructionNormal,       pcsOptions = options,       pcsFilteredOptions = NE.toList options,-      pcsHoveredOption = Just initialSelectionChooseableItem+      pcsHoveredOption = Just $ NE.head options     } -initialPromptMultipleChoiceState ::-  (Chooseable a) =>-  PromptMultipleChoiceState a+initialPromptMultipleChoiceState :: (Chooseable a) => PromptMultipleChoiceState a initialPromptMultipleChoiceState =   PromptMultipleChoiceState     { pmcsFilter = "",@@ -425,17 +413,14 @@       pmcsSelectedOptions = []     } -initialPromptMultipleChoiceStateFromSet ::-  (ChooseableItem a) =>-  NonEmpty a ->-  PromptMultipleChoiceState a+initialPromptMultipleChoiceStateFromSet :: NonEmpty a -> PromptMultipleChoiceState a initialPromptMultipleChoiceStateFromSet options =   PromptMultipleChoiceState     { pmcsFilter = "",       pmcsInstruction = ChoiceInstructionNormal,       pmcsOptions = options,       pmcsFilteredOptions = NE.toList options,-      pmcsHoveredOption = Just initialSelectionChooseableItem,+      pmcsHoveredOption = Just $ NE.head options,       pmcsSelectedOptions = []     }