phonetic-languages-examples 0.3.2.0 → 0.3.3.0

raw patch · 3 files changed

+9/−3 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• CHANGELOG.md +5/−0
• Lines/Main.hs +3/−2
• phonetic-languages-examples.cabal +1/−1

@@ -35,3 +35,8 @@  * Third version revised B. Fixed issue with missing variant for procBothF function in the working program. Updated the dependency boundaries of the ukrainian-phonetics-basic.++## 0.3.3.0 -- 2020-11-10++* Third version revised C. Fixed issue with the reverse order of the output for the rewritePoemG executable.+

@@ -33,6 +33,7 @@ import Languages.UniquenessPeriods.Vector.AuxiliaryG import Data.Char (isDigit,isAlpha) import Languages.UniquenessPeriods.Vector.FuncRepRelatedG+import Data.Monoid (mappend)  -- | The function allows to rewrite the Ukrainian text in the file given as the first command line argument to a new file. In between, it is rewritten -- so that every last word on the lines is preserved at its position, and the rest of the line is rearranged using the specified other command line@@ -102,7 +103,7 @@ circle2 :: Coeffs2 -> VB.Vector (VB.Vector (VB.Vector Int)) -> String -> String -> [String] -> [String] -> [String] circle2 coeffs permsG1 xs choice yss xss  | null xss = yss- | otherwise = circle2 coeffs permsG1 (if null rs then [] else last rs) choice (ws:yss) tss+ | otherwise = circle2 coeffs permsG1 (if null rs then [] else last rs) choice (yss `mappend` [ws]) tss       where (!zss,!tss) = splitAt 1 xss             !rs = words . concat $ zss             !ws = if compare (length rs) 3 == LT then unwords (xs:rs) else VB.toList . lastFrom3 . headU2 . fst . get22 .@@ -112,7 +113,7 @@ circle2I :: Coeffs2 -> VB.Vector (VB.Vector (VB.Vector Int)) -> VB.Vector Char -> String -> String -> [String] -> Int -> VB.Vector Int -> Float -> Float -> [String] -> [String] circle2I coeffs permsG1 whspss xs choice yss numberI vI minE maxE xss  | null xss = yss- | otherwise = circle2I coeffs permsG1 whspss (if null rs then [] else last rs) choice (ws:yss) numberI vI minE1 maxE1 tss+ | otherwise = circle2I coeffs permsG1 whspss (if null rs then [] else last rs) choice (yss `mappend` [ws]) numberI vI minE1 maxE1 tss       where (!zss,!tss) = splitAt 1 xss             !w2s = words . concat . take 1 $ tss             !l3 = (subtract 3) . length $ w2s

@@ -2,7 +2,7 @@ -- further documentation, see http://haskell.org/cabal/users-guide/  name:                phonetic-languages-examples-version:             0.3.2.0+version:             0.3.3.0 synopsis:            A generalization of the uniqueness-periods-vector-examples functionality. description:         Is intended to use more functionality of the Data.Vector, Data.Foldable, Data.Monoid and Data.SubG modules. homepage:            https://hackage.haskell.org/package/phonetic-languages-examples