mmsyn7ukr 0.15.2.0 → 0.15.3.0

raw patch · 4 files changed

+12/−7 lines, 4 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

Files

• ChangeLog.md +4/−0
• Main.hs +1/−1
• Processing_mmsyn7ukr.hs +6/−5
• mmsyn7ukr.cabal +1/−1

@@ -240,3 +240,7 @@  * Fifteenth version revised D. Fixed issue with the 'recommendSharp' function so that the sound representation for Ukrainian "ч" is not recommended to pronounce in a 'sharp' mode (because it is not proper so).++## 0.15.3.0 -- 2020-03-04++* Fifteenth version revised E. Changed the 'Processing_mmsyn7ukr.tempeRa' function. 

@@ -39,7 +39,7 @@        putStr "list-of-produced-sound-representations (if any) -- a list of sound representations, which the program will try to produce while being executed. "        putStrLn "The default one (if not specified) is a full range of needed sound representations. "     "-v" -> do-       putStrLn "mmsyn7ukr version: 0.15.2.0"+       putStrLn "mmsyn7ukr version: 0.15.3.0"     "-t" -> do        putStrLn "The program plays now a service sound for a 0.5 second. It uses just that duration for a pause before you can record a sound representation further."        path0 <- getDataFileName "y.wav"

@@ -396,11 +396,12 @@ -- program. While running if you provide a 5 seconds silence as needed, the program @mmsyn7ukr@ will -- reduce the noise in your recordings. This will create a cleaner sound. If you would like not to reduce the noise at all, then, please, -- specify \"-1\" as the first command line argument for the program @mmsyn7ukr@.-tempeRa :: IO ()-tempeRa = do {+tempeRa :: Int -> IO ()+tempeRa n = do {     putStrLn "Now, please, be in a silence for 5 seconds so that the program can create a noise profile to remove the noise from the recording. "-    ; putStr "Otherwise, the program can remove from the recorded sound data some important parts as a noise. If you would like not to reduce "-    ; putStrLn "the noise at all, then, please, specify as the first command line argument \"-1\". "+    ; putStr "Otherwise, the program can remove from the recorded sound data some important parts as a noise. "+    ; if n == 1 then putStrLn "If you would like not to reduce the noise at all, then, please, specify as the first command line argument \"-1\". "+      else putStr ""     ; recA "nx1.wav" 0.07     ; threadDelay 100000     ; recA "nx2.wav" 0.07@@ -483,7 +484,7 @@             eSp = fromJust (showE "play")             eSr = fromJust (showE "rec")         return ()) (catchEnd ExecutableNotProperlyInstalled)-  tempeRa+  tempeRa 1   let a0 = if null . take 1 $ args               then []              else concat . take 1 $ args

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                mmsyn7ukr-version:             0.15.2.0+version:             0.15.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