aboutsummaryrefslogtreecommitdiff
path: root/compiler/src/Processors.hs
diff options
context:
space:
mode:
authorpacien2020-01-29 22:17:13 +0100
committerpacien2020-01-29 22:17:13 +0100
commitc8692be41903791764de314c099ead7f078eed20 (patch)
tree167438937bda9dc321f37a52ff80525cbd96bfbd /compiler/src/Processors.hs
parentc05cbe525ad44273cc1b9b58549af757f549dcb7 (diff)
downloadldgallery-c8692be41903791764de314c099ead7f078eed20.tar.gz
compiler: fix picture item type without resize
GitHub: closes #52
Diffstat (limited to 'compiler/src/Processors.hs')
-rw-r--r--compiler/src/Processors.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/src/Processors.hs b/compiler/src/Processors.hs
index 4e7c5a7..f2ade63 100644
--- a/compiler/src/Processors.hs
+++ b/compiler/src/Processors.hs
@@ -138,8 +138,8 @@ itemFileProcessor maxResolution cached inputBase outputBase resClass inputRes =
138 (processor, props) = processorFor maxResolution $ formatFromPath inputRes 138 (processor, props) = processorFor maxResolution $ formatFromPath inputRes
139 139
140 processorFor :: Maybe Resolution -> Format -> (FileProcessor, Resource -> GalleryItemProps) 140 processorFor :: Maybe Resolution -> Format -> (FileProcessor, Resource -> GalleryItemProps)
141 processorFor Nothing _ = (copyFileProcessor, Other)
142 processorFor (Just maxRes) PictureFormat = (resizePictureUpTo maxRes, Picture) 141 processorFor (Just maxRes) PictureFormat = (resizePictureUpTo maxRes, Picture)
142 processorFor Nothing PictureFormat = (copyFileProcessor, Picture)
143 processorFor _ Unknown = (copyFileProcessor, Other) -- TODO: handle video reencoding and others? 143 processorFor _ Unknown = (copyFileProcessor, Other) -- TODO: handle video reencoding and others?
144 144
145 145