aboutsummaryrefslogtreecommitdiff
path: root/compiler/src/Processors.hs
diff options
context:
space:
mode:
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