diff options
| author | Notkea | 2020-02-02 05:31:37 +0100 |
|---|---|---|
| committer | GitHub | 2020-02-02 05:31:37 +0100 |
| commit | a79b9ceb26f385b4e1806ab7f5c4bcaceeeccfd6 (patch) | |
| tree | e044161bada71da698849be4be55c26b5949cb3c /compiler/src/Processors.hs | |
| parent | b88adf17c2ff40f051b356bcfab006ff3a7fbc97 (diff) | |
| parent | 56901340cb510ee9012bb4a122b95831258e9789 (diff) | |
| download | ldgallery-a79b9ceb26f385b4e1806ab7f5c4bcaceeeccfd6.tar.gz | |
Merge branch 'develop' into oz-viewer
Diffstat (limited to 'compiler/src/Processors.hs')
| -rw-r--r-- | compiler/src/Processors.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/compiler/src/Processors.hs b/compiler/src/Processors.hs index f2ade63..df7e632 100644 --- a/compiler/src/Processors.hs +++ b/compiler/src/Processors.hs | |||
| @@ -86,7 +86,11 @@ resizePictureUpTo maxResolution inputPath outputPath = | |||
| 86 | maxSize Resolution{width, height} = show width ++ "x" ++ show height ++ ">" | 86 | maxSize Resolution{width, height} = show width ++ "x" ++ show height ++ ">" |
| 87 | 87 | ||
| 88 | resize :: FileName -> FileName -> IO () | 88 | resize :: FileName -> FileName -> IO () |
| 89 | resize input output = callProcess "magick" [input, "-resize", maxSize maxResolution, output] | 89 | resize input output = callProcess "magick" |
| 90 | [ input | ||
| 91 | , "-auto-orient" | ||
| 92 | , "-resize", maxSize maxResolution | ||
| 93 | , output ] | ||
| 90 | 94 | ||
| 91 | 95 | ||
| 92 | type Cache = FileProcessor -> FileProcessor | 96 | type Cache = FileProcessor -> FileProcessor |