Generate renderer functions using TH

These take (and project from) a data type instead of hash maps, _and_
use text-builder-linear, _and_ have the full template inlined. The
result is that this is the fastest renderer yet.

1 files changed, 18 insertions, 6 deletions

diff --git a/tirclogv.cabal b/tirclogv.cabal
index 051453b..4ecc933 100644
--- a/tirclogv.cabal
+++ b/tirclogv.cabal
@@ -14,6 +14,7 @@ common common
     MultiWayIf
     TypeApplications
     TupleSections
+  ghc-options: -Wall
 
 executable tirclogv
   import: common
@@ -23,15 +24,18 @@ executable tirclogv
     Calendar
     Config
     Debounce
-    EscapeXML
     ImmutGrowVector
     Index
     Mmap
+    Pages
+    Pages.TH
     Util
     ZNC
   build-depends:
     base >= 4.19,
+    escapexml,
     mini-http-server,
+
     attoparsec,
     bytestring,
     clock,
@@ -42,6 +46,7 @@ executable tirclogv
     mustache,
     text-builder-linear,
     random,
+    template-haskell,
     text >= 2.1.2,
     transformers,
     time,
@@ -51,8 +56,17 @@ executable tirclogv
   hs-source-dirs: src
   c-sources:
     cbits/mmap.c
-    cbits/escapexml.c
-  ghc-options: -Wall -threaded
+  -- necessary so profiling works:
+  other-extensions:
+    TemplateHaskell
+  ghc-options: -threaded
+
+library escapexml
+  import: common
+  exposed-modules: EscapeXML
+  build-depends: base, text
+  hs-source-dirs: escapexml
+  c-sources: escapexml/escapexml.c
 
 library mini-http-server
   import: common
@@ -76,7 +90,6 @@ library mini-http-server
     transformers,
     stm
   hs-source-dirs: mini-http-server
-  ghc-options: -Wall
 
 test-suite server-test
   import: common
@@ -89,7 +102,6 @@ test-suite server-test
     hedgehog,
     transformers
   hs-source-dirs: server-test
-  ghc-options: -Wall
 
 executable echo-server
   import: common
@@ -98,4 +110,4 @@ executable echo-server
     base,
     mini-http-server,
     bytestring
-  ghc-options: -Wall
+  ghc-options: -threaded