ukrainian-phonetics-basic 0.1.4.0 → 0.1.5.0

raw patch · 3 files changed

+16/−2 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

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

@@ -20,3 +20,6 @@  * First version revised D. Added new functions that convert from Data.Vector.Vector Char to the representation in the Melodics.ByteString.Ukrainian module. +## 0.1.5.0 -- 2020-10-27++* First version revised E. Added two new functions to the module Languages.Phonetics.Ukrainian.Syllable to work with Data.Vector.Vector of Char.

@@ -19,7 +19,7 @@ import qualified Data.Vector.Unboxed as V import qualified Data.Vector as VB import qualified Data.List as L (groupBy)-import Melodics.ByteString.Ukrainian (convertToProperUkrainian)+import Melodics.ByteString.Ukrainian import CaseBi.Unboxed (getBFst') import qualified CaseBi as X (getBFst') import Data.List.InnToOut.Basic (mapI)@@ -170,9 +170,20 @@  createSyllablesUkr :: String -> [[[UZPP2]]] createSyllablesUkr = map (divVwls . reSyllableCntnts . groupSnds . vec2UZPP2s) . vecWords . V.filter (/='0') . convertToProperUkrainian . map (\x -> if x == '-' then ' ' else x)+{-# INLINE createSyllablesUkr #-}  createSyllablesUkrP :: String -> [[[UZPP2]]] createSyllablesUkrP = map (map representProlonged . divVwls . reSyllableCntnts . groupSnds . vec2UZPP2s) . vecWords . V.filter (/='0') . convertToProperUkrainian . map (\x -> if x == '-' then ' ' else x)+{-# INLINE createSyllablesUkrP #-}+++createSyllablesUkrV :: VB.Vector Char -> [[[UZPP2]]]+createSyllablesUkrV = map (divVwls . reSyllableCntnts . groupSnds . vec2UZPP2s) . vecWords . V.filter (/='0') . convertToProperUkrainianV . VB.map (\x -> if x == '-' then ' ' else x)+{-# INLINE createSyllablesUkrV #-}++createSyllablesUkrVP :: VB.Vector Char -> [[[UZPP2]]]+createSyllablesUkrVP = map (map representProlonged . divVwls . reSyllableCntnts . groupSnds . vec2UZPP2s) . vecWords . V.filter (/='0') . convertToProperUkrainianV . VB.map (\x -> if x == '-' then ' ' else x)+{-# INLINE createSyllablesUkrVP #-}  -- | Function 'representProlonged' converts duplicated consequent in the syllable consonants -- so that they are represented by just one 'UZPP2'. After applying the function to the list of 'UZPP2' being a syllable all groups of duplicated consequent consonants

@@ -2,7 +2,7 @@ -- further documentation, see http://haskell.org/cabal/users-guide/  name:                ukrainian-phonetics-basic-version:             0.1.4.0+version:             0.1.5.0 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