Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Minor improvement to exif parser.

Browse source
This commit is contained in:
John MacFarlane 2014-01-09 22:50:51 -08:00
parent c26fd3556b
commit b4b16d5786
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Text/Pandoc/ImageSize.hs
View file

@ -234,8 +234,8 @@ exifHeader = do
_ -> fail $ "Unknown data format " ++ show dataFormat _ -> fail $ "Unknown data format " ++ show dataFormat
let totalBytes = fromIntegral $ numComponents * bytesPerComponent let totalBytes = fromIntegral $ numComponents * bytesPerComponent
payload <- if totalBytes <= 4 -- data is right here payload <- if totalBytes <= 4 -- data is right here
then (fmt . BL.fromChunks . (:[])) <$> then fmt <$>
(getByteString totalBytes <* (getLazyByteString (fromIntegral totalBytes) <*
skip (4 - totalBytes)) skip (4 - totalBytes))
else do -- get data from offset else do -- get data from offset
offs <- getWord32 offs <- getWord32