diff options
Diffstat (limited to 'src/compiler')
| -rw-r--r-- | src/compiler/GF/Infra/BuildInfo.hs | 3 | ||||
| -rw-r--r-- | src/compiler/GFServer.hs | 2 |
2 files changed, 4 insertions, 1 deletions
diff --git a/src/compiler/GF/Infra/BuildInfo.hs b/src/compiler/GF/Infra/BuildInfo.hs index cba57cf2a..07f5a0bfc 100644 --- a/src/compiler/GF/Infra/BuildInfo.hs +++ b/src/compiler/GF/Infra/BuildInfo.hs @@ -19,6 +19,9 @@ buildInfo = #ifdef NEW_COMP ++" new-comp" #endif +#ifdef C_RUNTIME + ++" c-runtime" +#endif where details = either (const no_info) info darcs_info no_info = "No detailed version info available" diff --git a/src/compiler/GFServer.hs b/src/compiler/GFServer.hs index c28a99c5e..a81b6b397 100644 --- a/src/compiler/GFServer.hs +++ b/src/compiler/GFServer.hs @@ -150,7 +150,7 @@ handle documentroot state0 cache execute1 case (takeDirectory path,takeFileName path,takeExtension path) of (_ ,_ ,".pgf") -> wrapCGI $ PS.cgiMain' cache path (dir,"grammars.cgi",_ ) -> grammarList dir (decoded qs) - (dir ,"exb.fcgi" ,_ ) -> wrapCGI $ ES.cgiMain' root dir cache + (dir ,"exb.fcgi" ,_ ) -> wrapCGI $ ES.cgiMain' root dir (fst cache) _ -> liftIO $ serveStaticFile path where path = translatePath rpath _ -> err $ resp400 upath |