diff options
| author | OzoneGrif | 2020-02-02 05:36:08 +0100 |
|---|---|---|
| committer | GitHub | 2020-02-02 05:36:08 +0100 |
| commit | f297cc4f69e5b9fd3463d36f4eff21ac916d2849 (patch) | |
| tree | a8e53907f3d4c1ca380defbb5b89fa534a1b2d71 /compiler/src/Processors.hs | |
| parent | d1109852caba5942b037ea6ef998c67bef1d2920 (diff) | |
| parent | 56901340cb510ee9012bb4a122b95831258e9789 (diff) | |
| download | ldgallery-f297cc4f69e5b9fd3463d36f4eff21ac916d2849.tar.gz | |
Merge branch 'develop' into fix-implicit-output-exclusion
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 |