diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2024-08-05 20:28:06 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2024-08-07 21:51:10 +0200 |
| commit | 18ced99f826746a19aa6c0b351673d132f86421a (patch) | |
| tree | c85d07779ac4ee8d9578528c5cf4e555bd520119 /src/Parser.hs | |
| parent | 7f35daac6a9b0c4e286f5b4bfc7010f074b52b57 (diff) | |
Parser: report multiple errors in some cases
Changelog: Report multiple parsing errors in single pass
Diffstat (limited to 'src/Parser.hs')
| -rw-r--r-- | src/Parser.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |