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"
|
||||
|
||||
pageFile :: FilePath -> FilePath
|
||||
pageFile = addSuffix "_med"
|
||||
pageFile f
|
||||
| takeExtension f == ".gif" = f
|
||||
| otherwise = addSuffix "_med" f
|
||||
|
|
Loading…
Reference in a new issue