diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2026-05-10 00:36:58 +0200 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2026-05-10 00:36:58 +0200 |
| commit | a0ece65727292ed5a9dc165686f5ec5f891ab30c (patch) | |
| tree | 23e0e972d1c318af167b7af0dbff818f586f8156 | |
| parent | b8c4db39334c6612bd966043d73eb8c1fcacb5b8 (diff) | |
Less warnings
| -rw-r--r-- | src/Main.hs | 4 |
1 files 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 () |