aboutsummaryrefslogtreecommitdiff
path: root/compiler/src/Processors.hs
diff options
context:
space:
mode:
authorNotkea2020-02-02 05:31:37 +0100
committerGitHub2020-02-02 05:31:37 +0100
commita79b9ceb26f385b4e1806ab7f5c4bcaceeeccfd6 (patch)
treee044161bada71da698849be4be55c26b5949cb3c /compiler/src/Processors.hs
parentb88adf17c2ff40f051b356bcfab006ff3a7fbc97 (diff)
parent56901340cb510ee9012bb4a122b95831258e9789 (diff)
downloadldgallery-a79b9ceb26f385b4e1806ab7f5c4bcaceeeccfd6.tar.gz
Merge branch 'develop' into oz-viewer
Diffstat (limited to 'compiler/src/Processors.hs')
-rw-r--r--compiler/src/Processors.hs6
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
92type Cache = FileProcessor -> FileProcessor 96type Cache = FileProcessor -> FileProcessor