optparse-generic 1.5.0 → 1.5.1

raw patch · 3 files changed

+9/−5 lines, 3 files

Files

CHANGELOG.md +4/−0
optparse-generic.cabal +2/−2
src/Options/Generic.hs +3/−3

CHANGELOG.md view

@@ -1,3 +1,7 @@+1.5.1++* [Add `Eq` instances for `(<?>)`, `(<!>)`, and `(<#>)`](https://github.com/Gabriella439/optparse-generic/pull/109)+ 1.5.0  * BREAKING CHANGE: [Drop support for `system-filepath`](https://github.com/Gabriella439/optparse-generic/pull/106)

optparse-generic.cabal view

@@ -1,5 +1,5 @@ Name: optparse-generic-Version: 1.5.0+Version: 1.5.1 Cabal-Version: >=1.10 Build-Type: Simple License: BSD3@@ -29,7 +29,7 @@         transformers         >= 0.2.0.0  && < 0.7 ,         transformers-compat  >= 0.3      && < 0.8 ,         Only                                < 0.2 ,-        optparse-applicative >= 0.16.0.0 && < 0.18,+        optparse-applicative >= 0.16.0.0 && < 0.19,         time                 >= 1.5      && < 1.13,         void                                < 0.8 ,         bytestring                          < 0.12

src/Options/Generic.hs view

@@ -711,7 +711,7 @@ >     , bar :: Double <?> "Documentation for the bar flag" >     } deriving (Generic, Show) -}-newtype (<?>) field (help :: Symbol) = Helpful { unHelpful :: field } deriving (Generic, Show, Data)+newtype (<?>) field (help :: Symbol) = Helpful { unHelpful :: field } deriving (Generic, Show, Data, Eq)  instance (ParseField a, KnownSymbol h) => ParseField (a <?> h) where     parseField _ m c d = Helpful <$>@@ -732,7 +732,7 @@ >     , bar :: Double <!> "0.5" >     } deriving (Generic, Show) -}-newtype (<!>) field (value :: Symbol) = DefValue { unDefValue :: field } deriving (Generic, Show, Data)+newtype (<!>) field (value :: Symbol) = DefValue { unDefValue :: field } deriving (Generic, Show, Data, Eq)  instance (ParseField a, KnownSymbol d) => ParseField (a <!> d) where     parseField h m c _ = DefValue <$> parseField h m c (Just (symbolVal (Proxy :: Proxy d)))@@ -752,7 +752,7 @@ >     , bar :: Double <#> "b" >     } deriving (Generic, Show) -}-newtype (<#>) field (value :: Symbol) = ShortName { unShortName :: field } deriving (Generic, Show, Data)+newtype (<#>) field (value :: Symbol) = ShortName { unShortName :: field } deriving (Generic, Show, Data, Eq)  instance (ParseField a, KnownSymbol c) => ParseField (a <#> c) where     parseField h m _ d = ShortName <$> parseField h m (listToMaybe (symbolVal (Proxy :: Proxy c))) d