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

function doListGrammars in PGFService is obsolete

Browse Source
This commit is contained in:
krasimir
2009-11-26 16:27:04 +00:00
parent 12d64654d7
commit abe21f6fbb
1 changed files with 0 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/server/PGFService.hs
View File

@@ -92,13 +92,6 @@ pgfMain pgf command =
Just lang | lang `elem` PGF.languages pgf -> return $ Just lang Just lang | lang `elem` PGF.languages pgf -> return $ Just lang
| otherwise -> throwCGIError 400 "Unknown language" ["Unknown language: " ++ l] | otherwise -> throwCGIError 400 "Unknown language" ["Unknown language: " ++ l]
doListGrammars :: IO JSValue
doListGrammars =
do cwd <- getCurrentDirectory
ps <- getDirectoryContents cwd
let fs = filter ((== ".pgf") . map toLower . takeExtension) $ map takeFileName ps
return $ showJSON $ map toJSObject [[("name", f)] | f <- fs]
doTranslate :: PGF -> String -> Maybe PGF.Type -> Maybe PGF.Language -> Maybe PGF.Language -> JSValue doTranslate :: PGF -> String -> Maybe PGF.Type -> Maybe PGF.Language -> Maybe PGF.Language -> JSValue
doTranslate pgf input mcat mfrom mto = doTranslate pgf input mcat mfrom mto =
showJSON showJSON