phonetic-languages-ukrainian-array 0.9.1.0 → 0.9.2.0

raw patch · 3 files changed

+13/−8 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• ChangeLog.md +5/−0
• Phonetic/Languages/Ukrainian/PrepareText.hs +7/−7
• phonetic-languages-ukrainian-array.cabal +1/−1

@@ -70,3 +70,8 @@  * Ninth version revised A. Taken into account some more complex participle usage situations, though still not all possible. Some rather uncommon (rarely used) options are still not properly converted.++## 0.9.2.0 -- 2022-01-29++* Ninth version revised B. Fixed issue with participles "ж / би" and their variants. +

@@ -174,17 +174,17 @@        filter (not . null) . lines  participleConc :: [String] -> [String]-participleConc xss@(xs:ys:zs:yss)+participleConc (xs:ys:zs:yss)   | isParticipleAppended ys = if isParticipleAppended zs then (xs `mappend` ys `mappend` zs):participleConc yss-         else (xs `mappend` ys):participleConc (zs:yss)+         else participleConc (xs `mappend` ys:zs:yss)   | otherwise = xs:participleConc (ys:zs:yss)-participleConc xss@(xs:ys:yss)-  | ys `elem` ["\1073","\1073\1060","\1078\1077","\1078"] = (xs `mappend` ys):participleConc yss+participleConc (xs:ys:yss)+  | isParticipleAppended ys = (xs `mappend` ys):participleConc yss   | otherwise = xs:participleConc (ys:yss) participleConc yss = yss  isParticipleAppended :: String -> Bool-isParticipleAppended xs = xs `elem` ["\1073","\1073\1060","\1078\1077","\1078"]+isParticipleAppended xs = xs `elem` ["\1073","\1073\1080","\1078\1077","\1078"]  isPrepended :: String -> Bool isPrepended xs@@ -197,8 +197,8 @@  auxiliary1 :: [String] -> [String] auxiliary1 yss@(xs:zs:xss)- | isParticipleAppended xs && not (isPrepended zs) = xs:zs:auxiliary1 xss- | isPreposition xs || isConcatenated xs = concatMap jottedCnv (tss `mappend` wss):auxiliary1 vss+ | isParticipleAppended xs = xs:auxiliary1 (zs:xss)+ | isPreposition xs || isConcatenated xs = auxiliary1 (concatMap jottedCnv (tss `mappend` wss):vss)  | otherwise = xs:auxiliary1 (zs:xss)       where (tss,uss) = span isPrepended yss             (wss,vss) = splitAt 1 uss

@@ -2,7 +2,7 @@ --  further documentation, see http://haskell.org/cabal/users-guide/  name:                phonetic-languages-ukrainian-array-version:             0.9.1.0+version:             0.9.2.0 synopsis:            Prepares Ukrainian text to be used as a phonetic language text description:         Applies needed minimal grammar connections so that the text afterwards can be processed by dobutokO-poetry or phonetic languages approach related programs. Uses arrays instead of vectors. Besides can be used to reverse many of the done concatenations. homepage:            https://hackage.haskell.org/package/phonetic-languages-ukrainian-array