msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

the user can now upload their own grammars in the editor

Browse Source
This commit is contained in:
krasimir
2011-03-07 21:05:29 +00:00
parent f30e07f5f8
commit 93dcac2819
13 changed files with 251 additions and 141 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/server/PGFService.hs
View File

@@ -46,7 +46,7 @@ cgiMain' cache path =
pgfMain pgf command
pgfMain :: PGF -> String -> CGI CGIResult
pgfMain pgf command =
pgfMain pgf command = do
case command of
"parse" -> outputJSONP =<< doParse pgf `fmap` getText `ap` getCat `ap` getFrom
"complete" -> outputJSONP =<< doComplete pgf `fmap` getText `ap` getCat `ap` getFrom `ap` getLimit