From 18ced99f826746a19aa6c0b351673d132f86421a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Mon, 5 Aug 2024 20:28:06 +0200
Subject: Parser: report multiple errors in some cases

Changelog: Report multiple parsing errors in single pass
---
 src/Parser.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Parser.hs')

diff --git a/src/Parser.hs b/src/Parser.hs
index cd9b590..4fd60b5 100644
--- a/src/Parser.hs
+++ b/src/Parser.hs
@@ -39,7 +39,7 @@ parseTestModule absPath = do
             x <- identifier
             name <- (x:) <$> many (symbol "." >> identifier)
             when (or (zipWith (/=) (reverse name) (reverse $ map T.pack $ splitDirectories $ dropExtension $ absPath))) $ do
-                parseError $ FancyError off $ S.singleton $ ErrorFail $ T.unpack $
+                registerParseError $ FancyError off $ S.singleton $ ErrorFail $ T.unpack $
                     "module name does not match file path"
             eol >> scn
             return name
-- 
cgit v1.2.3