diff options
-rw-r--r-- | compiler/src/Processors.hs | 2 |
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 | ||