From da023dfdc4884325fb62b3b101fcc8ea44772752 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Sun, 10 May 2026 21:20:13 +0100
Subject: Clean up

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

(limited to 'src/Pages/TH.hs')

diff --git a/src/Pages/TH.hs b/src/Pages/TH.hs
index 0cc93db..2061c9a 100644
--- a/src/Pages/TH.hs
+++ b/src/Pages/TH.hs
@@ -194,7 +194,7 @@ renderNodes dats buf (node : nodes) = do
         Just (VQInt, _) -> fail $ "Int value in inverted section scrutinee " ++ show named
         Just (VQUnit, _) -> fail $ "() value in inverted section scrutinee " ++ show named
         Nothing -> fail $ "Inverted section scrutinee not found: " ++ show named
-    M.Partial _ _ -> fail $ "TODO partials"
+    M.Partial _ _ -> fail "TODO partials"
 
   renderNodes dats (ExpensiveExp buf') nodes
 
-- 
cgit v1.3.1