From cacce9d29bfebdd89599632613bbccf74f747d67 Mon Sep 17 00:00:00 2001
From: Rhiannon Morris <rhi@rhiannon.website>
Date: Sun, 19 Jul 2020 17:32:56 +0200
Subject: [PATCH] recognise names starting with _

---
 make-pages/BuilderQQ.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/make-pages/BuilderQQ.hs b/make-pages/BuilderQQ.hs
index f0d0609..1f19fb9 100644
--- a/make-pages/BuilderQQ.hs
+++ b/make-pages/BuilderQQ.hs
@@ -106,7 +106,7 @@ chunks = reverse . go "" [] . trimEnd where
 
   splitVar s
     | (var@(v :. _), s') <- Text.span isIdChar s,
-      isLower v
+      isLower v || v == '_'
     = (var, s')
   splitVar _ = error "invalid variable name"