diff options
| author | John J. Camilleri <john@johnjcamilleri.com> | 2018-11-28 18:09:56 +0100 |
|---|---|---|
| committer | John J. Camilleri <john@johnjcamilleri.com> | 2018-11-28 18:09:56 +0100 |
| commit | 69cea20dac8ac73fa0a61ed4ff427d2524ee253b (patch) | |
| tree | 54916b932d2fe76cf2a066a3c5344ce34d34831b /src/compiler/GF/Server.hs | |
| parent | 32ce03dc944b135128ffb41e136df9fea94466ce (diff) | |
Completely remove uses of example-based
Diffstat (limited to 'src/compiler/GF/Server.hs')
| -rw-r--r-- | src/compiler/GF/Server.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/compiler/GF/Server.hs b/src/compiler/GF/Server.hs index c287e8001..9192ed9c9 100644 --- a/src/compiler/GF/Server.hs +++ b/src/compiler/GF/Server.hs @@ -43,7 +43,6 @@ import GF.Infra.UseIO(readBinaryFile,writeBinaryFile,ePutStrLn) import GF.Infra.SIO(captureSIO) import GF.Data.Utilities(apSnd,mapSnd) import qualified PGFService as PS -import qualified ExampleService as ES import Data.Version(showVersion) import Paths_gf(getDataDir,version) import GF.Infra.BuildInfo (buildInfo) @@ -171,7 +170,6 @@ handle logLn documentroot state0 cache execute1 stateVar (_ ,_ ,".pgf") -> do --debug $ "PGF service: "++path wrapCGI $ PS.cgiMain' cache path (dir,"grammars.cgi",_ ) -> grammarList dir (decoded qs) - (dir ,"exb.fcgi" ,_ ) -> wrapCGI $ ES.cgiMain' root dir (PS.pgfCache cache) _ -> serveStaticFile rpath path where path = translatePath rpath _ -> return $ resp400 upath @@ -209,7 +207,7 @@ handle logLn documentroot state0 cache execute1 stateVar ((_,(value,_)):qs1,qs2) -> do put_qs (qs1++qs2) return value _ -> err $ resp400 $ "no "++field++" in request" - + inDir ok = cd =<< look "dir" where cd ('/':dir@('t':'m':'p':_)) = |