diff options
Diffstat (limited to 'src/server/MainFastCGI.hs')
| -rw-r--r-- | src/server/MainFastCGI.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/server/MainFastCGI.hs b/src/server/MainFastCGI.hs index 5987f1e6d..88178b017 100644 --- a/src/server/MainFastCGI.hs +++ b/src/server/MainFastCGI.hs @@ -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))] |