hsexif 0.6.1.2 → 0.6.1.3

raw patch · 3 files changed

+5/−4 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

Graphics/HsExif.hs +3/−2
hsexif.cabal +1/−1
tests/Tests.hs +1/−1

Graphics/HsExif.hs view

@@ -188,9 +188,10 @@     firstBytes <- lookAhead $ (,) <$> getWord16be <*> getWord16be     case firstBytes of         (0xffd8,_ ) -> getWord16be >> findAndParseExifBlockJPEG-        (0x4d4d,42) -> findAndParseExifBlockNEF+        (0x4d4d,42) -> findAndParseExifBlockNEF      -- DNG, Nikon         (0x4949,42) -> findAndParseExifBlockNEF-        _           -> fail "Not a JPEG or NEF file"+        (0x4949,0x2A00) -> findAndParseExifBlockNEF  -- TIFF, Canon CR2, Sony ARW+        _           -> fail "Not a JPEG, TIFF, or TIFF-based raw file"  findAndParseExifBlockJPEG :: Get (Map ExifTag ExifValue) findAndParseExifBlockJPEG = do

hsexif.cabal view

@@ -1,5 +1,5 @@ name:                hsexif-version:             0.6.1.2+version:             0.6.1.3 synopsis:            EXIF handling library in pure Haskell description:         The hsexif library provides functions for working with EXIF data                      contained in JPEG files. Currently it only supports reading the data.

tests/Tests.hs view

@@ -53,7 +53,7 @@  testNotAJpeg :: B.ByteString -> Spec testNotAJpeg imageContents = it "returns empty list if not a JPEG" $-    assertEqual' (Left "Not a JPEG or NEF file") (parseExif imageContents)+    assertEqual' (Left "Not a JPEG, TIFF, or TIFF-based raw file") (parseExif imageContents)  testNoExif :: B.ByteString -> Spec testNoExif imageContents = it "returns empty list if no EXIF" $