diff options
Diffstat (limited to 'WebSetup.hs')
| -rw-r--r-- | WebSetup.hs | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/WebSetup.hs b/WebSetup.hs index eb75b090e..23a41fe22 100644 --- a/WebSetup.hs +++ b/WebSetup.hs @@ -10,10 +10,9 @@ import Distribution.Simple.LocalBuildInfo(datadir,buildDir,absoluteInstallDirs) {- To test the GF web services, the minibar and the grammar editor, use "cabal install" (or "runhaskell Setup.hs install") to install gf as usual. - Then start the server with the command "gf -server" and - open http://localhost:41296/minibar/minibar.html in your web browser - (Firefox, Safari, Opera or Chrome). The example grammars listed below will - be available in the minibar. + Then start the server with the command "gf -server" and open + http://localhost:41296/ in your web browser (Firefox, Safari, Opera or + Chrome). The example grammars listed below will be available in the minibar. -} example_grammars = -- :: [(pgf, tmp, src)] @@ -45,9 +44,11 @@ setupWeb gf args dest pkg lbi = do putStrLn "setupWeb" mapM_ (createDirectoryIfMissing True) [grammars_dir,cloud_dir] mapM_ build_pgf example_grammars + copyGFLogo where grammars_dir = www_dir </> "grammars" cloud_dir = www_dir </> "tmp" -- hmm + logo_dir = www_dir </> "Logos" www_dir = datadir (absoluteInstallDirs pkg lbi dest) </> "www" gfo_dir = buildDir lbi </> "gfo" @@ -64,6 +65,12 @@ setupWeb gf args dest pkg lbi = -- " --output-dir="++grammars_dir++ -- has no effect?! " "++src + gf_logo = "gf0.png" + + copyGFLogo = + do createDirectoryIfMissing True logo_dir + copyFile ("doc"</>"Logos"</>gf_logo) (logo_dir</>gf_logo) + execute command = do putStrLn command e <- system command |