msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Replace Distribution.Simple.Utils.noticeNoWrap with putStr

Browse Source 
Effect is the same and I don't want to upset the package dependencies
This commit is contained in:
John J. Camilleri
2018-07-04 14:00:56 +02:00
parent b9b0217160
commit 40cc58d6c1
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
WebSetup.hs
View File

@@ -6,8 +6,7 @@ import System.Process(rawSystem)
import System.Exit(ExitCode(..)) import System.Exit(ExitCode(..))
import Distribution.Simple.Setup(BuildFlags(..),Flag(..),CopyDest(..),copyDest) import Distribution.Simple.Setup(BuildFlags(..),Flag(..),CopyDest(..),copyDest)
import Distribution.Simple.LocalBuildInfo(datadir,buildDir,absoluteInstallDirs) import Distribution.Simple.LocalBuildInfo(datadir,buildDir,absoluteInstallDirs)
import Distribution.Simple.Utils(die,noticeNoWrap) import Distribution.Simple.Utils(die)
import qualified Distribution.Verbosity
{- {-
To test the GF web services, the minibar and the grammar editor, use To test the GF web services, the minibar and the grammar editor, use
@@ -52,7 +51,7 @@ buildWeb gf (flags,pkg,lbi) = do
contrib_exists <- doesDirectoryExist contrib_dir contrib_exists <- doesDirectoryExist contrib_dir
if contrib_exists if contrib_exists
then mapM_ build_pgf example_grammars then mapM_ build_pgf example_grammars
else noticeNoWrap Distribution.Verbosity.normal $ unlines else putStr $ unlines
[ "---" [ "---"
, "Example grammars are no longer included in the main GF repository, but have moved to gf-contrib." , "Example grammars are no longer included in the main GF repository, but have moved to gf-contrib."
, "If you want these example grammars to be built, clone this repository in the same top-level directory as GF:" , "If you want these example grammars to be built, clone this repository in the same top-level directory as GF:"