use download for bigFile if it exists
This commit is contained in:
parent
4d7c521070
commit
42089136e1
1 changed files with 4 additions and 2 deletions
|
@ -296,8 +296,10 @@ pageFile img =
|
|||
if canResize img then addSuffix "_med" img.path else img.path
|
||||
|
||||
bigFile :: Image -> FilePath
|
||||
bigFile img =
|
||||
if canResize img then addSuffix "_big" img.path else img.path
|
||||
bigFile img
|
||||
| Just path <- img.download = path
|
||||
| canResize img = addSuffix "_big" img.path
|
||||
| otherwise = img.path
|
||||
|
||||
addSuffix :: String -> FilePath -> FilePath
|
||||
addSuffix suf path =
|
||||
|
|
Loading…
Add table
Reference in a new issue