From 42089136e16927003aa6f29084d01773a6a17a01 Mon Sep 17 00:00:00 2001
From: rhiannon morris <rhi@rhiannon.website>
Date: Fri, 31 Jan 2025 18:38:11 +0100
Subject: [PATCH] use download for bigFile if it exists

---
 make-pages/Info.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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 =