mmsyn7ukr 0.6.2.1 → 0.6.3.0

raw patch · 4 files changed

+15/−19 lines, 4 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

Files

• ChangeLog.md +5/−0
• Main.hs +2/−2
• ReplaceP.hs +7/−16
• mmsyn7ukr.cabal +1/−1

@@ -80,3 +80,8 @@ ## 0.6.2.1 -- 2020-01-13  * Sixth version revised D. Fixed issues with being not compiled.++## 0.6.3.0 -- 2020-01-13++* Sixth version revised E. Simplified the parsing module ReplaceP.+

@@ -24,7 +24,7 @@ import System.Info (os) import CaseBi (getBFst') import qualified Data.Vector as V-import ReplaceP (replaceP, replaceP2, replaceP3)+import ReplaceP (replaceP, replaceP4)  -- | Function responds for general program execution. It starts with CAUTION to be responsible for usage and to  -- use it personally in some important cases (see README). Then the program guides you through the creating your Ukrainian \"voice\". @@ -139,7 +139,7 @@       putStrLn ""       let rrs = show a2           list0 = read (replaceP rrs)::[String]-          zss = read (replaceP3 . replaceP2 . show $ list0)::[String]+          zss = read (replaceP4 . show $ list0)::[String]           wws = map (getBFst' ("0.wav", V.fromList . zip ["а","б","в","г","д","дж","дз","е","ж","з","и","й","к","л","м","н","о","п","р","с",                        "сь","т","у","ф","х","ц","ць","ч","ш","ь","і","ґ"] $ ["A.wav", "B.wav", "C.wav", "D.wav", "E.wav", "F.wav", "G.wav", "H.wav",                           "I.wav", "J.wav", "K.wav", "L.wav", "M.wav", "N.wav", "O.wav", "P.wav", "Q.wav", "R.wav", 

@@ -28,19 +28,10 @@ replaceP xs = xs  -- | Function is used internally to parse further the result dealt with 'replaceP' function.-replaceP2 :: String -> String-replaceP2 (x:y:z:u:v:xs) | [x,y,z,u,v] == "\\1078" = '\1078':replaceP2 xs-                         | [x,y,z,u,v] == "\\1079" = '\1079':replaceP2 xs-                         | [x,y,z,u,v] == "\\1100" = '\1100':replaceP2 xs-                         | otherwise = x:replaceP2 (y:z:u:v:xs)-replaceP2 (x:xs) = x:replaceP2 xs-replaceP2 [] = []---- | Function is used internally to parse finally the result into a @[String]@.-replaceP3 :: String -> String-replaceP3 (x:y:xs) | [x,y] == "\\ж" = "\\1078" ++ replaceP3 xs-                   | [x,y] == "\\з" = "\\1079" ++ replaceP3 xs-                   | [x,y] == "\\ь" = "\\1100" ++ replaceP3 xs-                   | otherwise = x:replaceP3 (y:xs)-replaceP3 (x:xs) = x:replaceP3 xs-replaceP3 [] = []+replaceP4 :: String -> String+replaceP4 (t:x:y:z:u:v:xs) | [t,x,y,z,u,v] == "\\\\1078" = '\1078':replaceP4 xs+                           | [t,x,y,z,u,v] == "\\\\1079" = '\1079':replaceP4 xs+                           | [t,x,y,z,u,v] == "\\\\1100" = '\1100':replaceP4 xs+                           | otherwise = t:replaceP4 (x:y:z:u:v:xs)+replaceP4 (x:xs) = x:replaceP4 xs+replaceP4 [] = []

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                mmsyn7ukr-version:             0.6.2.1+version:             0.6.3.0 synopsis:            A simple basic interface to some SoX functionality or to produce a voice that can be used by mmsyn7h description:         A program and a library that can be used as a simple basic interface to some SoX functionality or to produce your voice in Ukrainian (if you pronounce the sounds properly) represented by the separate sounds or something special like soft sign. homepage:            https://hackage.haskell.org/package/mmsyn7ukr