mmsyn7ukr-array 0.2.0.0 → 0.3.0.0
raw patch · 6 files changed
+27/−22 lines, 6 filesdep +end-of-exedep −mmsyn3dep ~basedep ~mmsyn2-arraydep ~mmsyn7ukr-commonPVP ok
version bump matches the API change (PVP)
Dependencies added: end-of-exe
Dependencies removed: mmsyn3
Dependency ranges changed: base, mmsyn2-array, mmsyn7ukr-common
API changes (from Hackage documentation)
Files
- ChangeLog.md +4/−0
- LICENSE +1/−1
- Processing_mmsyn7ukr_array.hs +4/−4
- SoXBasics/Arr.hs +3/−3
- SoXBasics1/Arr.hs +8/−8
- mmsyn7ukr-array.cabal +7/−6
ChangeLog.md view
@@ -16,4 +16,8 @@ ## 0.2.0.0 -- 2022-08-16 * Second version. Added mmsyn7ukr-common as a dependency. Removed the duplicated modules.+ +## 0.3.0.0 -- 2024-12-19++* Third version. Updated dependencies. Added github repository with bug-reports.
LICENSE view
@@ -1,4 +1,4 @@-Copyright (c) 2019-2022 Oleksandr Zhabenko+Copyright (c) 2019-2022, 2024 Oleksandr Zhabenko Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the
Processing_mmsyn7ukr_array.hs view
@@ -1,9 +1,9 @@ -- | -- Module : Processing_mmsyn7ukr--- Copyright : (c) OleksandrZhabenko 2019-2022+-- Copyright : (c) OleksandrZhabenko 2019-2022, 2024 -- License : MIT -- Stability : Experimental--- Maintainer : olexandr543@yahoo.com+-- Maintainer : oleksandr.zhabenko@yahoo.com -- -- A program and a library that can be used as a simple -- basic interface to some SoX functionality or for producing @@ -34,7 +34,7 @@ import Numeric import System.Directory import Control.Exception (onException)-import EndOfExe (showE)+import EndOfExe2 (showE) import Data.Maybe (fromJust) import Data.Char import qualified Data.List as L@@ -49,7 +49,7 @@ import GHC.Arr import Parser.ReplaceP (replaceP, replaceP4) import Sound.Control.Exception.FinalException-import SoXBasics.Arr (recA,recB,playA)+import SoXBasics.Arr (recA,recB) -- | Function 'produceSound3' is used internally in the 'produceSound2' function. produceSound3 :: (String, String) -> (FilePath, FilePath) -> String -> (Int, Float) -> Float -> IO ()
SoXBasics/Arr.hs view
@@ -1,9 +1,9 @@ -- | -- Module : SoXBasics.Arr--- Copyright : (c) OleksandrZhabenko 2019-2022+-- Copyright : (c) OleksandrZhabenko 2019-2022, 2024 -- License : MIT -- Stability : Experimental--- Maintainer : olexandr543@yahoo.com+-- Maintainer : oleksandr.zhabenko@yahoo.com -- -- A program and a library that can be used as a simple -- basic interface to some SoX functionality or for producing @@ -65,7 +65,7 @@ import Data.Char import System.Process import System.IO-import EndOfExe+import EndOfExe2 import System.Exit import Control.Concurrent (threadDelay) import Control.Exception (onException)
SoXBasics1/Arr.hs view
@@ -1,9 +1,9 @@ -- | -- Module : SoXBasics1.Arr--- Copyright : (c) OleksandrZhabenko 2020-2022+-- Copyright : (c) OleksandrZhabenko 2020-2022, 2024 -- License : MIT -- Stability : Experimental--- Maintainer : olexandr543@yahoo.com+-- Maintainer : oleksandr.zhabenko@yahoo.com -- -- A program and a library that can be used as a simple -- basic interface to some SoX functionality or for producing @@ -42,7 +42,7 @@ import Data.Maybe (isJust, fromJust) import Numeric import System.Process-import EndOfExe+import EndOfExe2 import System.Exit import qualified SoXBasics.Arr as SB (extremeS1,upperBnd,selMA,maxAbs,norm) import Sound.Control.Exception.FinalException@@ -387,21 +387,21 @@ amplMax <- SB.selMA fileB (0, upp) True amplMin <- SB.selMA fileB (0, upp) False let ampl = read (fst . SB.maxAbs $ (amplMax, amplMin))::Float- (code, _, _) <- readProcessWithExitCode (fromJust (showE "sox")) [fileA, "8." ++ tail fileA, "vol", showFFloat Nothing ampl $ show 0, "amplitude"] ""+ (code, _, _) <- readProcessWithExitCode (fromJust (showE "sox")) [fileA, "8." ++ drop 1 fileA, "vol", showFFloat Nothing ampl $ show 0, "amplitude"] "" if code /= ExitSuccess then do- e1 <- doesFileExist $ "8." ++ tail fileA+ e1 <- doesFileExist $ "8." ++ drop 1 fileA if e1 then do- removeFile $ "8." ++ tail fileA+ removeFile $ "8." ++ drop 1 fileA catchEnd (NotCreatedWithEffect "vol") else catchEnd (NotCreatedWithEffect "vol") else do - file8e <- doesFileExist $ "8." ++ tail fileA+ file8e <- doesFileExist $ "8." ++ drop 1 fileA if file8e then do removeFile fileA- renameFile ("8." ++ tail fileA) fileA+ renameFile ("8." ++ drop 1 fileA) fileA else catchEnd (InitialFileNotChanged fileA) else catchEnd ExecutableNotProperlyInstalled
mmsyn7ukr-array.cabal view
@@ -2,16 +2,17 @@ -- documentation, see http://haskell.org/cabal/users-guide/ name: mmsyn7ukr-array-version: 0.2.0.0-synopsis: A simple reduced basic interface to some SoX functionality or to produce a voice that can be used by mmsyn7h-array, dobutokO2-array and other similar packages-description: A reduced set of modules and functionality needed to dobutokO2-array package and probably some other ones. Is rewritten from the mmsyn7ukr-0.17.0.0 package to reduce the needed dependencies.+version: 0.3.0.0+synopsis: A simple reduced basic interface to some SoX functionality or to produce a voice that can be used by dobutokO2 and other similar packages+description: A reduced set of modules and functionality needed to dobutokO2-array package and probably some other ones. Is rewritten from the mmsyn7ukr-0.17.0.0 package to reduce the needed dependencies. homepage: https://hackage.haskell.org/package/mmsyn7ukr-array license: MIT license-file: LICENSE author: OleksandrZhabenko-maintainer: olexandr543@yahoo.com-copyright: (c) Oleksandr Zhabenko 2019-2022+maintainer: oleksandr.zhabenko@yahoo.com+copyright: (c) Oleksandr Zhabenko 2019-2022, 2024 category: Language, Sound+bug-reports: https://github.com/Oleksandr-Zhabenko/mmsyn7ukr-array/issues build-type: Simple extra-source-files: ChangeLog.md, README.md data-files: y.wav@@ -21,7 +22,7 @@ exposed-modules: SoXBasics.Arr, SoXBasics1.Arr, Processing_mmsyn7ukr_array, Paths_mmsyn7ukr_array -- other-modules: -- other-extensions:- build-depends: base >=4.7 && <5, process >=1.4 && <2, mmsyn2-array ==0.3.0.0, directory >=1.2.5 && <2, mmsyn3 ==0.1.6.0, mmsyn7ukr-common ==0.2.0.0+ build-depends: base >=4.13 && <5, process >=1.4 && <2, mmsyn2-array ==0.3.1.1, directory >=1.2.5 && <2, end-of-exe ==0.1.2.0, mmsyn7ukr-common ==0.3.1.0 -- hs-source-dirs: default-language: Haskell2010