ukrainian-phonetics-basic 0.3.1.1 → 0.3.1.2

raw patch · 3 files changed

+7/−4 lines, 3 files

Files

• CHANGELOG.md +4/−0
• Languages/Phonetic/Ukrainian/Syllable.hs +2/−3
• ukrainian-phonetics-basic.cabal +1/−1

@@ -76,3 +76,7 @@ ## 0.3.1.1 -- 2020-11-26  * Third version revised B. Some code optimizations in the Languages.Phonetics.Ukrainian.Syllable module.++## 0.3.1.2 -- 2020-11-26++* Third version revised C. Some minor code optimization in the Languages.Phonetics.Ukrainian.Syllable module.

@@ -193,9 +193,8 @@ createSyllablesUkrS = map (divVwls . reSyllableCntnts . groupSnds . str2UZPP2s) . words1 . mapMaybe g . convertToProperUkrainianS . map (\x -> if x == '-' then ' ' else x)   where g x           | x == '0' = Nothing-          | x == '1' = Just ' '-          | x == '-' = Just ' '-          | otherwise = Just x+          | x /= '1' && x /= '-' = Just x+          | otherwise = Just ' '         words1 xs = if null ts then [] else w : words1 s'' -- Practically this is an optimized version for this case 'words' function from Prelude.           where ts = dropWhile (== ' ') xs                 (w, s'') = span (/= ' ') ts

@@ -2,7 +2,7 @@ -- further documentation, see http://haskell.org/cabal/users-guide/  name:                ukrainian-phonetics-basic-version:             0.3.1.1+version:             0.3.1.2 synopsis:            A library to work with the basic Ukrainian phonetics and syllable segmentation. description:         A library to work with the basic Ukrainian phonetics and syllable segmentation. Rewritten from the mmsyn6ukr and mmsyn7s packages. homepage:            https://hackage.haskell.org/package/ukrainian-phonetics-basic