diff --git a/make-pages/Info.hs b/make-pages/Info.hs index 1b0b6fa..124bfd0 100644 --- a/make-pages/Info.hs +++ b/make-pages/Info.hs @@ -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 =