don't try to resize gifs
This commit is contained in:
parent
4a08a6bb9a
commit
9ddb7a726e
1 changed files with 3 additions and 1 deletions
|
@ -128,4 +128,6 @@ thumbFile :: FilePath -> FilePath
|
||||||
thumbFile = addSuffix "_small"
|
thumbFile = addSuffix "_small"
|
||||||
|
|
||||||
pageFile :: FilePath -> FilePath
|
pageFile :: FilePath -> FilePath
|
||||||
pageFile = addSuffix "_med"
|
pageFile f
|
||||||
|
| takeExtension f == ".gif" = f
|
||||||
|
| otherwise = addSuffix "_med" f
|
||||||
|
|
Loading…
Reference in a new issue