GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-22 11:19:32 -06:00
Code Issues Packages Projects Releases Wiki Activity

restore the web server

Browse Source
This commit is contained in:
krangelov
2021-12-24 11:41:03 +01:00
parent 56824cb645
commit 8b05257d6c
3 changed files with 69 additions and 660 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/compiler/SimpleEditor/Convert.hs
View File

@@ -17,7 +17,7 @@ import GF.Grammar.Printer(ppParams,ppTerm,getAbs,TermPrintQual(..))
import GF.Grammar.Parser(runP,pModDef)
import GF.Grammar.Lexer(Posn(..))
import GF.Data.ErrM
import PGF2.Internal(Literal(LStr))
import PGF2(Literal(LStr))
import SimpleEditor.Syntax as S
import SimpleEditor.JSON
@@ -119,7 +119,7 @@ convCncJment (name,jment) =
case jment of
ResParam ops _ ->
return $ Pa $ Param i (maybe "" (render . ppParams q . unLoc) ops)
ResValue _ -> return Ignored
ResValue _ _ -> return Ignored
CncCat (Just (L _ typ)) Nothing Nothing pprn _ -> -- ignores printname !!
return $ LC $ Lincat i (render $ ppTerm q 0 typ)
ResOper oltyp (Just lterm) -> return $ Op $ Oper lhs rhs