diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-02-28 18:57:52 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-02-28 18:57:52 +0100 |
| commit | 93d2bdf10e6e189c2c632ad5cae8022b7d3b98f8 (patch) | |
| tree | 69e356e4eb4ae7d6dc6b8eba8d659277e34de3f5 /src/Parser.hs | |
| parent | 65e6f51751cf1d2adf8f8ec6953672048deabd3c (diff) | |
Do not prefix parse error from first module as "imported"
Diffstat (limited to 'src/Parser.hs')
| -rw-r--r-- | src/Parser.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Parser.hs b/src/Parser.hs index e9bf3d2..4bb32a7 100644 --- a/src/Parser.hs +++ b/src/Parser.hs @@ -158,6 +158,9 @@ parseTestFiles paths = do go parsedModules res path = do let moduleName = error "current module name should be set at the beginning of parseTestModule" parseTestFile parsedModules moduleName path >>= \case + Left (ImportModuleError bundle) -> do + putStr (errorBundlePretty bundle) + exitFailure Left err -> do putStr (showErrorComponent err) exitFailure |