hocker 1.0.2 → 1.0.3

raw patch · 7 files changed

+11/−1 lines, 7 files

Files

CHANGELOG.md +5/−0
hocker.cabal +1/−1
src/Hocker/Types.hs +1/−0
src/Hocker/Types/Hash.hs +1/−0
src/Hocker/Types/ImageName.hs +1/−0
src/Hocker/Types/ImageTag.hs +1/−0
src/Hocker/Types/URI.hs +1/−0

CHANGELOG.md view

@@ -1,5 +1,10 @@ # Changelog +## 1.0.3+### Added+- `readField` implementations for the custom `ParseField` instances to+  accommodate a minor API change in `optparse-generic` version `1.2.3`+ ## 1.0.2 ### Fixed

hocker.cabal view

@@ -1,5 +1,5 @@ name:                hocker-version:             1.0.2+version:             1.0.3 synopsis:            Interact with the docker registry and generate nix build instructions homepage:            https://github.com/awakesecurity/hocker#readme Bug-Reports:         https://github.com/awakesecurity/hocker/issues

src/Hocker/Types.hs view

@@ -157,6 +157,7 @@   deriving (Show)  instance ParseField Credentials where+  readField = Options.readerError "Internal, fatal error: unexpected use of readField"   parseField _ _ _ = (Basic <$> parseUsername <*> parsePassword) <|> (BearerToken <$> parseToken)     where       parseUsername = Text.pack <$>

src/Hocker/Types/Hash.hs view

@@ -29,6 +29,7 @@ readSHA256 = either (const Nothing) Hash.digestFromByteString . toBytes  instance ParseField (Hash.Digest Hash.SHA256) where+  readField = Options.maybeReader (readSHA256 . C8.pack)   parseField h _ _ =       (Options.option (Options.maybeReader (readSHA256 . C8.pack)) $        ( Options.metavar "SHA256"

src/Hocker/Types/ImageName.hs view

@@ -23,6 +23,7 @@   deriving (Generic, Show)  instance ParseField ImageName where+  readField = ImageName <$> Options.str   parseField _ _ _ =     ImageName <$>       (Options.argument Options.str $

src/Hocker/Types/ImageTag.hs view

@@ -23,6 +23,7 @@   deriving (Generic, Show)  instance ParseField ImageTag where+  readField = ImageTag <$> Options.str   parseField _ _ _ =     ImageTag <$>       (Options.argument Options.str $

src/Hocker/Types/URI.hs view

@@ -31,6 +31,7 @@       over _Left show parsedURI  instance ParseField (URIRef Absolute) where+  readField = uriReader   parseField h n s =       (Options.option uriReader $        ( Options.metavar "URI"