From 9ddb7a726ec349abc5fc69a2c57b64f44b024fd6 Mon Sep 17 00:00:00 2001
From: Rhiannon Morris <rhi@rhiannon.website>
Date: Sat, 18 Jul 2020 11:43:10 +0200
Subject: [PATCH] don't try to resize gifs

---
 make-pages/Depend.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/make-pages/Depend.hs b/make-pages/Depend.hs
index 4713fbe..03f320b 100644
--- a/make-pages/Depend.hs
+++ b/make-pages/Depend.hs
@@ -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