GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-20 16:42:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

gf -server: small logging improvements

Browse Source
This commit is contained in:
hallgren
2013-01-12 18:48:23 +00:00
parent cfb72bad8b
commit f9551337a9
1 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/compiler/GFServer.hs
View File

@@ -64,9 +64,9 @@ server port optroot execute1 state0 =
where where
-- | HTTP server -- | HTTP server
http_server execute1 state0 state cache root = http_server execute1 state0 state cache root =
do putStrLn gf_version do logPutStrLn gf_version
putStrLn $ "Document root = "++root logPutStrLn $ "Document root = "++root
putStrLn $ "Starting HTTP server, open http://localhost:" logPutStrLn $ "Starting HTTP server, open http://localhost:"
++show port++"/ in your web browser." ++show port++"/ in your web browser."
initServer port (modifyMVar state . handle root state0 cache execute1) initServer port (modifyMVar state . handle root state0 cache execute1)
@@ -225,7 +225,9 @@ handle root state0 cache execute1
flag (n,"") = n flag (n,"") = n
flag (n,v) = n++"="++v flag (n,v) = n++"="++v
cmd = unwords ("gf":args) cmd = unwords ("gf":args)
out <- liftIO $ readProcessWithExitCode "gf" args "" logPutStrLn cmd
out@(ecode,_,_) <- liftIO $ readProcessWithExitCode "gf" args ""
logPutStrLn $ show ecode
cwd <- liftIO $ getCurrentDirectory cwd <- liftIO $ getCurrentDirectory
return $ json200 (jsonresult cwd ('/':dir++"/") cmd out files) return $ json200 (jsonresult cwd ('/':dir++"/") cmd out files)