GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-25 02:38:55 -06:00
Code Issues Packages Projects Releases Wiki Activity

gf -cshell bug fix

Browse Source 
The functions cExpr and hsExpr in GF.Command.Commands2 need to
handle string literals.
This commit is contained in:
Thomas Hallgren
2018-10-16 16:23:54 +02:00
parent 8df3b458d4
commit effa818408
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/compiler/GF/Command/Commands2.hs
View File

@@ -804,12 +804,16 @@ prMorphoAnalysis (w,lps) =
hsExpr c = hsExpr c =
case unApp c of case unApp c of
Just (f,cs) -> H.mkApp (H.mkCId f) (map hsExpr cs) Just (f,cs) -> H.mkApp (H.mkCId f) (map hsExpr cs)
_ -> error "GF.Command.Commands2.hsExpr" _ -> case unStr c of
Just str -> H.mkStr str
_ -> error $ "GF.Command.Commands2.hsExpr "++show c
cExpr e = cExpr e =
case H.unApp e of case H.unApp e of
Just (f,es) -> mkApp (H.showCId f) (map cExpr es) Just (f,es) -> mkApp (H.showCId f) (map cExpr es)
_ -> error "GF.Command.Commands2.cExpr" _ -> case H.unStr e of
Just str -> mkStr str
_ -> error $ "GF.Command.Commands2.cExpr "++show e
needPGF exec opts ts = needPGF exec opts ts =
do Env mb_pgf cncs <- getPGFEnv do Env mb_pgf cncs <- getPGFEnv