diff options
| author | pacien | 2022-10-27 18:01:35 +0200 |
|---|---|---|
| committer | GitHub | 2022-10-27 18:01:35 +0200 |
| commit | 7b02764fd6419ef3a5da7d5cccda50a63af1b38f (patch) | |
| tree | 4e38270e24eead7531b92e7e951528334bedc7a5 /compiler/src/FileProcessors.hs | |
| parent | 4e5a57f24d7934c75e923c1ea0a1eb09c676765f (diff) | |
| parent | 80c83b921b440ea345783b8a9f26dc0acb87abd4 (diff) | |
| download | ldgallery-7b02764fd6419ef3a5da7d5cccda50a63af1b38f.tar.gz | |
Merge pull request #338 from ldgallery/p_compiler_exif_picture_dimensions
compiler: fix exif-rotated image dimension retrieval
Diffstat (limited to 'compiler/src/FileProcessors.hs')
| -rw-r--r-- | compiler/src/FileProcessors.hs | 3 |
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 | ||
| 101 | getImageResolution :: FilePath -> IO Resolution | 101 | getImageResolution :: FilePath -> IO Resolution |
| 102 | getImageResolution fsPath = | 102 | getImageResolution 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 |