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

Dictionary edits by Inari and others

Browse Source
This commit is contained in:
aarne
2014-04-24 06:18:48 +00:00
parent 5d3a843d4b
commit a460747b73
19 changed files with 4125 additions and 4093 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/src/translator/CheckDict.hs
View File

@@ -58,7 +58,7 @@ lookupFun f dictmap = case look f of
_ -> "variants{} ; -- "
where
look = flip Data.Map.lookup dictmap
notEmpty r = head (words r) `notElem` ["variants","variants{}"]
notEmpty r = take 1 (words r) `notElem` [["variants"],["variants{}"]]
subCats f = case splitFun f of
(fun,cat) -> case cat of