don't try to resize gifs

This commit is contained in:
Rhiannon Morris 2020-07-18 11:43:10 +02:00
parent 4a08a6bb9a
commit 9ddb7a726e

View file

@ -128,4 +128,6 @@ thumbFile :: FilePath -> FilePath
thumbFile = addSuffix "_small"
pageFile :: FilePath -> FilePath
pageFile = addSuffix "_med"
pageFile f
| takeExtension f == ".gif" = f
| otherwise = addSuffix "_med" f