diff options
| author | pacien | 2022-09-04 18:18:27 +0200 |
|---|---|---|
| committer | pacien | 2022-09-04 18:18:27 +0200 |
| commit | 11bbbae2850b9c45da697a8ed9626495a50a38c0 (patch) | |
| tree | ff2713118f8b45d36905bfea2933f08d8e70066d /compiler/src/FileProcessors.hs | |
| parent | e93f7b1eb84c083d67567115284c0002a3a7d5fc (diff) | |
| parent | 8349be992b46b77dee921f484cfbff8b758ff756 (diff) | |
| download | ldgallery-2.1.tar.gz | |
Merge branch 'develop': release v2.1v2.1
GitHub: related to #315
Diffstat (limited to 'compiler/src/FileProcessors.hs')
| -rw-r--r-- | compiler/src/FileProcessors.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/src/FileProcessors.hs b/compiler/src/FileProcessors.hs index 5c4e1c8..6e1738e 100644 --- a/compiler/src/FileProcessors.hs +++ b/compiler/src/FileProcessors.hs | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | -- ldgallery - A static generator which turns a collection of tagged | 1 | -- ldgallery - A static generator which turns a collection of tagged |
| 2 | -- pictures into a searchable web gallery. | 2 | -- pictures into a searchable web gallery. |
| 3 | -- | 3 | -- |
| 4 | -- Copyright (C) 2019-2020 Pacien TRAN-GIRARD | 4 | -- Copyright (C) 2019-2022 Pacien TRAN-GIRARD |
| 5 | -- | 5 | -- |
| 6 | -- This program is free software: you can redistribute it and/or modify | 6 | -- This program is free software: you can redistribute it and/or modify |
| 7 | -- it under the terms of the GNU Affero General Public License as | 7 | -- it under the terms of the GNU Affero General Public License as |
| @@ -79,7 +79,7 @@ copyFileProcessor inputPath outputPath = | |||
| 79 | 79 | ||
| 80 | resizePictureUpTo :: Resolution -> FileTransformer | 80 | resizePictureUpTo :: Resolution -> FileTransformer |
| 81 | resizePictureUpTo maxResolution inputPath outputPath = | 81 | resizePictureUpTo maxResolution inputPath outputPath = |
| 82 | putStrLn ("Generating:\t" ++ outputPath) | 82 | putStrLn ("Processing:\t" ++ outputPath) |
| 83 | >> ensureParentDir (flip resize) outputPath inputPath | 83 | >> ensureParentDir (flip resize) outputPath inputPath |
| 84 | where | 84 | where |
| 85 | maxSize :: Resolution -> String | 85 | maxSize :: Resolution -> String |