diff options
| author | pacien | 2022-10-25 17:16:52 +0200 |
|---|---|---|
| committer | pacien | 2022-10-25 17:16:52 +0200 |
| commit | 80c83b921b440ea345783b8a9f26dc0acb87abd4 (patch) | |
| tree | 1e08a36c524475dafcf76073d6cfa41063c10ac3 /compiler/src/FileProcessors.hs | |
| parent | de68d19b685b2e9d9159122de7816fe61a46b0a2 (diff) | |
| download | ldgallery-80c83b921b440ea345783b8a9f26dc0acb87abd4.tar.gz | |
compiler: fix exif-rotated image dimension retrieval
GitHub: fixes #336
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 |