diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2026-05-08 01:04:31 +0200 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2026-05-08 01:04:31 +0200 |
| commit | 80ba594a6b44b9693eeaa27bf3bea225a57527ca (patch) | |
| tree | 448e17c7b6a58f1ddc73273c003949c9a80d3ac8 /src/Config.hs | |
| parent | 1446fba192da53cd0f6382b99a53bd1467f98bb6 (diff) | |
Eliminate some thunks
This saves ALL the memory; all files were previously kept in memory
Diffstat (limited to 'src/Config.hs')
| -rw-r--r-- | src/Config.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |