aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorpacien2022-10-25 17:16:52 +0200
committerpacien2022-10-25 17:16:52 +0200
commit80c83b921b440ea345783b8a9f26dc0acb87abd4 (patch)
tree1e08a36c524475dafcf76073d6cfa41063c10ac3
parentde68d19b685b2e9d9159122de7816fe61a46b0a2 (diff)
downloadldgallery-80c83b921b440ea345783b8a9f26dc0acb87abd4.tar.gz
compiler: fix exif-rotated image dimension retrieval
GitHub: fixes #336
-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