From 2cc39661d9e9b6c04dc71c79b210c475aed4bd03 Mon Sep 17 00:00:00 2001 From: hallgren Date: Wed, 14 Nov 2012 13:52:45 +0000 Subject: Add flag --document-root for user with gf --server This can make it easier to test cloud service updates before installing them. --- src/compiler/GFI.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'src/compiler/GFI.hs') diff --git a/src/compiler/GFI.hs b/src/compiler/GFI.hs index cccbbce39..f2afa9b78 100644 --- a/src/compiler/GFI.hs +++ b/src/compiler/GFI.hs @@ -71,8 +71,11 @@ shell opts files = loop opts =<< runSIO (importInEnv emptyGFEnv opts files) #ifdef SERVER_MODE mainServerGFI opts0 port files = - server port (execute1 opts) =<< runSIO (importInEnv emptyGFEnv opts files) - where opts = beQuiet opts0 + server port root (execute1 opts) + =<< runSIO (importInEnv emptyGFEnv opts files) + where + root = flag optDocumentRoot opts + opts = beQuiet opts0 #else mainServerGFI opts files = error "GF has not been compiled with server mode support" -- cgit v1.2.3