From 1ad7527f657c9b268773d674e0bad1789f96fa8a Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 9 Nov 2007 08:56:13 +0000 Subject: [PATCH] preserve error message in batch compile --- src/GF/Devel/Compile.hs | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/src/GF/Devel/Compile.hs b/src/GF/Devel/Compile.hs index fbbb543dc..6b55d0eea 100644 --- a/src/GF/Devel/Compile.hs +++ b/src/GF/Devel/Compile.hs @@ -32,9 +32,11 @@ import System.Directory batchCompile :: Options -> [FilePath] -> IO SourceGrammar batchCompile opts files = do - let defOpts = addOptions opts (options [emitCode]) - Ok (_,gr) <- appIOE $ foldM (compileModule defOpts) emptyCompileEnv files - return gr + let defOpts = addOptions opts (options [emitCode]) + egr <- appIOE $ foldM (compileModule defOpts) emptyCompileEnv files + case egr of + Ok (_,gr) -> return gr + Bad s -> error s -- to output an intermediate stage intermOut :: Options -> Option -> String -> IOE ()