From a3588a15c8dc8b4c96f0986a4e0344a5f6a3120e Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Mon, 20 Jul 2026 10:10:57 +0100
Subject: Silence unused-variable warning in TH-generated code

---
 src/Pages/TH.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Pages')

diff --git a/src/Pages/TH.hs b/src/Pages/TH.hs
index 2061c9a..2967761 100644
--- a/src/Pages/TH.hs
+++ b/src/Pages/TH.hs
@@ -156,7 +156,7 @@ renderNodes dats buf (node : nodes) = do
             `appE` pure (expensive buf)
             `appE` pure e
         Just (VQMaybe dm, e) -> do
-          xvar <- newName "x"
+          xvar <- newName "_x"  -- tends to be unused in {{#sec}} {{.}} {{/sec}} situations, so suppress the warning
           makeDuplicable buf $ \buf' ->
             caseE (pure e)
               [match (conP 'Nothing []) (normalB (pure buf')) []
-- 
cgit v1.3.1