From a0ece65727292ed5a9dc165686f5ec5f891ab30c Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Sat, 9 May 2026 23:36:58 +0100
Subject: Less warnings

---
 src/Main.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Main.hs b/src/Main.hs
index 458ed9f..08feeb8 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -288,9 +288,9 @@ testCount confpath = do
     forM_ files $ \file -> do
       evs <- parseLog <$> BS.readFile (dir </> file)
       forM_ evs $ \case
-        (_, Talk _ msg) -> return ()
+        (_, Talk _ _msg) -> return ()
         (_, Notice n msg) -> error (show (n, msg))
-        (_, Act _ msg) -> return ()
+        (_, Act _ _msg) -> return ()
         _ -> return ()
 
 main :: IO ()
-- 
cgit v1.3.1