GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-28 09:28:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

minimized the number of disambiguating forms of function names in MkMorphodict.hs even more

Browse Source
This commit is contained in:
aarneranta
2021-05-28 12:35:20 +02:00
parent 7fbcb60b87
commit a0ad410692
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/morphodict/MkMorphodict.hs
View File

@@ -147,9 +147,13 @@ mkMorphoDict env =
shrink fls = case fls of shrink fls = case fls of
fl@(_:_):_ | all ((==head fl) . head) fls -> shrink (map tail fls) fl@(_:_):_ | all ((==head fl) . head) fls -> shrink (map tail fls)
fl@(_:_):_ | all ((==last fl) . last) fls -> shrink (map init fls) fl@(_:_):_ | all ((==last fl) . last) fls -> shrink (map init fls)
_ -> shrinkMore fls
shrinkMore fls = case fls of
_ | length (nub (map init fls)) == length fls -> shrinkMore (map init fls)
_ | length (nub (map tail fls)) == length fls -> shrinkMore (map tail fls)
_ -> fls _ -> fls
formlists fls = [wfs | (_:ws,fs) <- map (snd . snd) fls, let wfs = ws ++ fs]
mkFun = showCId . mkCId . concat . intersperse "_" mkFun = showCId . mkCId . concat . intersperse "_"