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

Add and pass FoodsJpn

Browse Source
This commit is contained in:
John J. Camilleri
2021-02-16 22:49:37 +01:00
parent d5cf00f711
commit 5be21dba1c
3 changed files with 77 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/runtime/haskell/LPGF.hs
View File

@@ -168,6 +168,7 @@ lin2string l = case l of
LFSpace -> "" -- when encountered at beginning/end
LFToken tok -> tok
LFTuple [l] -> lin2string l
LFTuple (l:_) -> lin2string l -- unselected table, just choose first option (see e.g. FoodsJpn)
LFPre pts df -> lin2string df -- when encountered at end
LFConcat (LFPre pts df) l2 -> lin2string $ LFConcat l1 l2
where