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

Sort languages in fastcgi /languages output.

Browse Source
This commit is contained in:
bjorn
2008-08-18 20:20:32 +00:00
parent 6360d3f473
commit ca667318cf
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/server/MainFastCGI.hs
View File

@@ -12,6 +12,7 @@ import Control.Exception
import Control.Monad
import Data.Dynamic
import Data.Maybe
import Data.List
grammarFile :: FilePath
@@ -92,7 +93,7 @@ linearize' pgf mto tree =
Just to -> [(to,PGF.linearize pgf to tree)]
listLanguages :: PGF -> [(PGF.Language,JSObject JSValue)]
listLanguages pgf = [(l,toJSObject (info l)) | l <- PGF.languages pgf]
listLanguages pgf = [(l,toJSObject (info l)) | l <- sort (PGF.languages pgf)]
where info l = [("languageCode", showJSON (fromMaybe "" (PGF.languageCode pgf l))),
("canParse", showJSON (PGF.canParse pgf l))]