From cd1942a8454d569363b201f2345953e648ec9b53 Mon Sep 17 00:00:00 2001
From: "John J. Camilleri" <john@digitalgrammars.com>
Date: Thu, 19 Jul 2018 12:36:39 +0200
Subject: WebSetup: fail silently when example grammars don't build

Also used installed RGL not built
---
 Setup.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'Setup.hs')

diff --git a/Setup.hs b/Setup.hs
index 5a2113ce6..c0ad6ebbf 100644
--- a/Setup.hs
+++ b/Setup.hs
@@ -9,6 +9,7 @@ import Data.List(isPrefixOf,intersect)
 import System.Process(readProcess)
 import System.FilePath((</>),(<.>))
 import System.Directory(createDirectoryIfMissing,copyFile,getDirectoryContents)
+import System.Exit(die)
 
 import WebSetup
 
@@ -380,7 +381,8 @@ run_gfc bi args =
     do let args' = numJobs (bf bi)++["-batch","-gf-lib-path="++rgl_src_dir]
                    ++ filter (not . null) args
            gf = default_gf (lbi bi)
-       execute gf args'
+       ok <- execute gf args'
+       if ok then return () else die "Stopping"
 
 -- | Get path to locally-built gf
 default_gf :: LocalBuildInfo -> FilePath
-- 
cgit v1.2.3