aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorpacien2022-10-27 18:01:35 +0200
committerGitHub2022-10-27 18:01:35 +0200
commit7b02764fd6419ef3a5da7d5cccda50a63af1b38f (patch)
tree4e38270e24eead7531b92e7e951528334bedc7a5
parent4e5a57f24d7934c75e923c1ea0a1eb09c676765f (diff)
parent80c83b921b440ea345783b8a9f26dc0acb87abd4 (diff)
downloadldgallery-7b02764fd6419ef3a5da7d5cccda50a63af1b38f.tar.gz
Merge pull request #338 from ldgallery/p_compiler_exif_picture_dimensions
compiler: fix exif-rotated image dimension retrieval
-rw-r--r--compiler/src/FileProcessors.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/src/FileProcessors.hs b/compiler/src/FileProcessors.hs
index 6e1738e..db5c9a1 100644
--- a/compiler/src/FileProcessors.hs
+++ b/compiler/src/FileProcessors.hs
@@ -100,7 +100,8 @@ type FileDescriber a =
100 100
101getImageResolution :: FilePath -> IO Resolution 101getImageResolution :: FilePath -> IO Resolution
102getImageResolution fsPath = 102getImageResolution fsPath =
103 readProcess "magick" ["identify", "-format", "%w %h", firstFrame] [] 103 readProcess "magick"
104 ["identify", "-auto-orient", "-format", "%w %h", firstFrame] []
104 >>= parseResolution . break (== ' ') 105 >>= parseResolution . break (== ' ')
105 where 106 where
106 firstFrame :: FilePath 107 firstFrame :: FilePath