Add and pass FoodsJpn

2021-02-16 22:49:37 +01:00
parent d5cf00f711
commit 5be21dba1c
3 changed files with 77 additions and 0 deletions
--- a/src/runtime/haskell/LPGF.hs
+++ b/src/runtime/haskell/LPGF.hs
@@ -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