diff options
| -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 () |