WebSetup: fail silently when example grammars don't build

Also used installed RGL not built
This commit is contained in:
John J. Camilleri
2018-07-19 12:36:39 +02:00
parent 6a8d0038ed
commit cd1942a845
2 changed files with 11 additions and 7 deletions

View File

@@ -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