packages feed

exiftool 0.2.0.1 → 0.2.0.2

raw patch · 3 files changed

+10/−5 lines, 3 filesdep ~witchPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: witch

API changes (from Hackage documentation)

- ExifTool: instance ExifTool.FromValue GHC.Integer.Type.Integer
- ExifTool: instance ExifTool.ToValue GHC.Integer.Type.Integer
+ ExifTool: instance ExifTool.FromValue GHC.Num.Integer.Integer
+ ExifTool: instance ExifTool.ToValue GHC.Num.Integer.Integer

Files

CHANGELOG.md view
@@ -1,5 +1,9 @@ # Revision history for exiftool +## 0.2.0.2 -- 2022-11-14++* Maintenance release.+ ## 0.2.0.1 -- 2022-08-18  * Dependency version bumps.
exiftool.cabal view
@@ -1,6 +1,6 @@ cabal-version:      3.0 name:               exiftool-version:            0.2.0.1+version:            0.2.0.2 synopsis:           Haskell bindings to ExifTool description:        Haskell bindings to the [ExifTool](https://exiftool.org)                     command-line application that enable reading, writing and@@ -30,7 +30,7 @@                     text                 >= 1.2.3 && < 2.1,                     unordered-containers >= 0.2.12 && < 0.3,                     vector               >= 0.12.1 && < 0.14,-                    witch                >= 1.0.0 && < 1.1+                    witch                >= 1.0.0 && < 1.2  source-repository head   type:               git
lib/ExifTool.hs view
@@ -105,7 +105,7 @@     stripPrefix,     toCaseFold,   )-import Data.Text.Encoding (decodeUtf8')+import Data.Text.Encoding (decodeUtf8', encodeUtf8) import Data.Text.IO (hGetLine, hPutStrLn) import qualified Data.Vector as Vector import System.IO (Handle, hFlush, hReady)@@ -173,7 +173,7 @@         either           (fail . into @String)           (pure . Binary)-          (decodeBase64 $ into @ByteString b)+          (decodeBase64 $ encodeUtf8 b)     | otherwise = pure $ String x   parseJSON (JSON.Number x) = pure $ Number x   parseJSON (JSON.Bool x) = pure $ Bool x@@ -354,7 +354,8 @@   where     options = ["-json", "-binary", "-unknown2"]     tags = fmap (("-" <>) . tagName) ts-    parseOutput = bimap (into @Text) head . eitherDecode . into @BL.ByteString+    parseOutput =+      bimap (into @Text) head . eitherDecode . into @BL.ByteString . encodeUtf8  -- | Write metadata to a file. The file is modified in place, make sure you have -- the necessary backups!