GitHub/gf-core
1
0 Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-10-26 08:43:18 -06:00
Code Issues Packages Projects Releases Wiki Activity

refactoring pgfMain now takes the file path directly

Browse Source
This commit is contained in:
Krasimir Angelov committed 2024-05-16 19:34:02 +02:00
1 parent 02e8dcbb56
commit efe00f88e3
2 files changed
+4 -7
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

src/compiler/api/GF/Server.hs
+2 -2
View File
@@ -117,8 +117,8 @@ handle logLn documentroot state0 cache execute stateVar conn = do
-- use/change the cwd. Access files by absolute paths only.
let path = translatePath rpath
in case (takeDirectory path,takeFileName path,takeExtension path) of
(_ ,_ ,".pgf") -> PS.pgfMain logLn conn cache [("PATH_TRANSLATED",path)] rq
(_ ,_ ,".ngf") -> PS.pgfMain logLn conn cache [("PATH_TRANSLATED",path)] rq
(_ ,_ ,".pgf") -> PS.pgfMain logLn conn cache path rq
(_ ,_ ,".ngf") -> PS.pgfMain logLn conn cache path rq
(dir,"grammars.cgi",_ ) -> addDate (grammarList dir query)
_ -> serveStaticFile conn rpath path
_ -> addDate (return $ resp400 upath)