From 7c9ff164bf89b6f39da5ad2c43f7772324e1c141 Mon Sep 17 00:00:00 2001 From: hallgren Date: Mon, 12 May 2014 13:45:36 +0000 Subject: gf -server: include list of loaded PGFs in version info --- src/compiler/GFServer.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'src/compiler') diff --git a/src/compiler/GFServer.hs b/src/compiler/GFServer.hs index 049b60d26..f0c120b9c 100644 --- a/src/compiler/GFServer.hs +++ b/src/compiler/GFServer.hs @@ -18,7 +18,7 @@ import GF.System.Directory(doesDirectoryExist,doesFileExist,createDirectory, import Data.Time (getCurrentTime,formatTime) import System.Locale(defaultTimeLocale,rfc822DateFormat) import System.FilePath(dropExtension,takeExtension,takeFileName,takeDirectory, - ()) + (),makeRelative) #ifndef mingw32_HOST_OS import System.Posix.Files(getSymbolicLinkStatus,isSymbolicLink,removeLink, createSymbolicLink) @@ -158,7 +158,9 @@ handle logLn documentroot state0 cache execute1 stateVar -- "/stop" -> -- "/start" -> "/parse" -> parse (decoded qs) - "/version" -> return (ok200 gf_version) + "/version" -> do (c1,c2) <- PS.listPGFCache cache + let rel = map (makeRelative documentroot) + return $ ok200 (unlines (gf_version:"":rel c1++"":rel c2)) "/flush" -> do PS.flushPGFCache cache; return (ok200 "flushed") '/':rpath -> -- This code runs without mutual exclusion, so it must *not* -- cgit v1.2.3