From 93d2bdf10e6e189c2c632ad5cae8022b7d3b98f8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Fri, 28 Feb 2025 18:57:52 +0100 Subject: Do not prefix parse error from first module as "imported" --- src/Parser.hs | 3 +++ 1 file changed, 3 insertions(+) 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 -- cgit v1.2.3