mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-23 03:32:51 -06:00
fixed some discontinuous categories in synopsis by wrapping with mkUtt
This commit is contained in:
@@ -71,7 +71,7 @@ prApiEx apexx = case M.toList apexx of
|
||||
[l ++ ": //" ++ mkEx l e ++ "//" | (l,e) <- lexx]
|
||||
|
||||
mkEx l = unws . bind . mkE . words where
|
||||
unws = if l == "Tha" then concat else unwords
|
||||
unws = if elem l ["Jap","Tha"] then concat else unwords -- remove spaces
|
||||
mkE e = case e of
|
||||
"atomic":"term":_ -> ["*"]
|
||||
"[]":_ -> ["''"]
|
||||
|
||||
Reference in New Issue
Block a user