mmsyn7ukr 0.9.4.0 → 0.9.4.1
raw patch · 7 files changed
+15/−4 lines, 7 files
Files
- ChangeLog.md +4/−0
- Main.hs +1/−0
- Processing_mmsyn7ukr.hs +2/−1
- ReplaceP.hs +1/−0
- SoXBasics.hs +4/−2
- SoXBasics1.hs +2/−0
- mmsyn7ukr.cabal +1/−1
ChangeLog.md view
@@ -152,3 +152,7 @@ ## 0.9.4.0 -- 2020-01-25 * Ninth version revised E. Fixed issues with being not properly created or modified the files in the SoXBasics and SoXBasics1 modules.++## 0.9.4.1 -- 2020-01-25++* Ninth version revised F. Fixed issue with being not compiled because of the syntaxis errors. Some documentation improvements.
Main.hs view
@@ -2,6 +2,7 @@ -- Module : Main -- Copyright : (c) OleksandrZhabenko 2019-2020 -- License : MIT+-- Stability : Experimental -- -- Maintainer : olexandr543@yahoo.com --
Processing_mmsyn7ukr.hs view
@@ -2,7 +2,8 @@ -- Module : Processing_mmsyn7ukr -- Copyright : (c) OleksandrZhabenko 2019-2020 -- License : MIT---+-- Stability : Experimental+-- -- Maintainer : olexandr543@yahoo.com -- -- A program and a library that can be used as a simple
ReplaceP.hs view
@@ -2,6 +2,7 @@ -- Module : ReplaceP -- Copyright : (c) OleksandrZhabenko 2020 -- License : MIT+-- Stability : Experimental -- -- Maintainer : olexandr543@yahoo.com --
SoXBasics.hs view
@@ -2,6 +2,7 @@ -- Module : SoXBasics -- Copyright : (c) OleksandrZhabenko 2019-2020 -- License : MIT+-- Stability : Experimental -- -- Maintainer : olexandr543@yahoo.com --@@ -221,7 +222,7 @@ normL :: FilePath -> Int -> IO () normL file level = if isJust (showE "sox") then do- (code, _, _) <- (fromJust (showE "sox")) [file, "9" ++ file, "gain", "-n", show level] ""+ (code, _, _) <- readProcessWithExitCode (fromJust (showE "sox")) [file, "9" ++ file, "gain", "-n", show level] "" if code /= ExitSuccess then do e1 <- doesFileExist $ "9" ++ file@@ -408,7 +409,7 @@ resampleA :: FilePath -> Int -> IO () resampleA file frequency = if isJust (showE "sox") then do- (code, _, _) <- (fromJust (showE "sox")) [file, "3" ++ file, "rate", "-s", "-I", show frequency] ""+ (code, _, _) <- readProcessWithExitCode (fromJust (showE "sox")) [file, "3" ++ file, "rate", "-s", "-I", show frequency] "" if code /= ExitSuccess then do e1 <- doesFileExist $ "3" ++ file@@ -556,6 +557,7 @@ else do removeFile $ "8" ++ file error "The initial file was not changed!"+ else error "The initial file was not changed!" else error "SoX is not properly installed in your system. Please, install it properly and then call the function again." -- | Function 'volS2' changes the given audio (the first @FilePath@ parameter, which must be normalized e. g. by the 'norm' function before) with
SoXBasics1.hs view
@@ -2,6 +2,7 @@ -- Module : SoXBasics1 -- Copyright : (c) OleksandrZhabenko 2020 -- License : MIT+-- Stability : Experimental -- -- Maintainer : olexandr543@yahoo.com --@@ -308,6 +309,7 @@ else do removeFile $ "8" ++ file error "The initial file was not changed!"+ else error "The initial file was not changed!" else error "SoX is not properly installed in your system. Please, install it properly and then call the function again." -- | Function 'volS2' changes the given audio (the first @FilePath@ parameter, which must be normalized e. g. by the 'norm' function before) with
mmsyn7ukr.cabal view
@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/ name: mmsyn7ukr-version: 0.9.4.0+version: 0.9.4.1 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