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