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

Show version & configuration info when gf -server starts

Browse Source
This commit is contained in:
hallgren
2011-10-12 19:00:42 +00:00
parent 8266df8f58
commit bd7cb1ab41
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/compiler/GFServer.hs
View File

@@ -24,7 +24,9 @@ import Codec.Binary.UTF8.String(encodeString)
import GF.Infra.UseIO(readBinaryFile,writeBinaryFile) import GF.Infra.UseIO(readBinaryFile,writeBinaryFile)
import qualified PGFService as PS import qualified PGFService as PS
import qualified ExampleService as ES import qualified ExampleService as ES
import Paths_gf(getDataDir) import Data.Version(showVersion)
import Paths_gf(getDataDir,version)
import GF.Infra.BuildInfo (buildInfo)
import RunHTTP(cgiHandler) import RunHTTP(cgiHandler)
-- * HTTP server -- * HTTP server
@@ -34,6 +36,9 @@ server execute1 state0 =
datadir <- getDataDir datadir <- getDataDir
let root = datadir</>"www" let root = datadir</>"www"
port = 41296 port = 41296
putStrLn $ "This is GF version "++showVersion version++"."
putStrLn buildInfo
putStrLn $ "Document root = "++root
putStrLn $ "Starting HTTP server, open http://localhost:" putStrLn $ "Starting HTTP server, open http://localhost:"
++show port++"/ in your web browser." ++show port++"/ in your web browser."
setCurrentDirectory root setCurrentDirectory root