From 80ba594a6b44b9693eeaa27bf3bea225a57527ca Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Fri, 8 May 2026 00:04:31 +0100
Subject: Eliminate some thunks

This saves ALL the memory; all files were previously kept in memory
---
 src/Config.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Config.hs')

diff --git a/src/Config.hs b/src/Config.hs
index ffd4875..d6cf021 100644
--- a/src/Config.hs
+++ b/src/Config.hs
@@ -69,7 +69,7 @@ type family IfFull stage a where
   IfFull Full a = a
 
 -- | network, channelname
-data Channel = Channel { chanNetwork :: Text, chanChannel :: Text }
+data Channel = Channel { chanNetwork :: !Text, chanChannel :: !Text }
   deriving (Show, Eq, Ord)
 
 prettyChannel :: Channel -> Text
-- 
cgit v1.3.1