From 40cc58d6c1e85e5841427d5e5bb1f2e1c3586185 Mon Sep 17 00:00:00 2001 From: "John J. Camilleri" Date: Wed, 4 Jul 2018 14:00:56 +0200 Subject: [PATCH] Replace Distribution.Simple.Utils.noticeNoWrap with putStr Effect is the same and I don't want to upset the package dependencies --- WebSetup.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/WebSetup.hs b/WebSetup.hs index e18847a6b..197b92286 100644 --- a/WebSetup.hs +++ b/WebSetup.hs @@ -6,8 +6,7 @@ import System.Process(rawSystem) import System.Exit(ExitCode(..)) import Distribution.Simple.Setup(BuildFlags(..),Flag(..),CopyDest(..),copyDest) import Distribution.Simple.LocalBuildInfo(datadir,buildDir,absoluteInstallDirs) -import Distribution.Simple.Utils(die,noticeNoWrap) -import qualified Distribution.Verbosity +import Distribution.Simple.Utils(die) {- 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 if contrib_exists 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." , "If you want these example grammars to be built, clone this repository in the same top-level directory as GF:"