dobutokO2 0.5.2.0 → 0.5.3.0

raw patch · 3 files changed

+31/−23 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• CHANGELOG.md +5/−0
• DobutokO/Sound.hs +25/−22
• dobutokO2.cabal +1/−1

@@ -37,3 +37,8 @@ ## 0.5.2.0 -- 2020-03-07  * Fifth version revised B. Fixed issue with the name of the recorded informational sound file in the 'recAndProcess' function.++## 0.5.3.0 -- 2020-03-07++* Fifth version revised C. Fixed issue with the noise reduction in the 'recAndProcess' function for the existing at the beginning file+(it is not done at all in such a case). 

@@ -408,28 +408,31 @@        putStrLn "_______________________________________________________________________"        recAndProcess file 1)   | x == 2 = onException (do     -     putStr "Please, specify the control parameter for the SoX \"noisered\" effect in the range from 0.0 to 1.0. "-     putStrLn "The greater value causes more reduction with possibly removing some important sound data. The default value is 0.5 "-     putStrLn "To use the default value, you can simply press Enter."-     ctrlN <- getLine-     let addit = dropWhile (/= '.') . filter (\t -> isDigit t || t == '.') $ ctrlN-         noiseP = if null ctrlN then ""-                  else tail addit-     controlNoiseReduction $ '0':noiseP ;-     norm "_x.wav" ;-     if isPrefixOf "nx." file -       then putStr "" -       else renameFile "8_x.wav" file ;-     removeFile "x.wav" ;-     removeFile "_x.wav" ;-     dir <- listDirectory "." ;-     let paths4 = filter (isPrefixOf "nx.") dir-     mapM_ removeFile paths4 ;-     putStrLn "" ;-     return "") (do-       putStrLn "The process was not successful may be because of the not valid data. Please, specify the valid data as requested."-       putStrLn "_______________________________________________________________________"-       recAndProcess file 2)+     exist3 <- doesFileExist file+     if exist3 then return ""+     else do+       putStr "Please, specify the control parameter for the SoX \"noisered\" effect in the range from 0.0 to 1.0. "+       putStrLn "The greater value causes more reduction with possibly removing some important sound data. The default value is 0.5 "+       putStrLn "To use the default value, you can simply press Enter."+       ctrlN <- getLine+       let addit = dropWhile (/= '.') . filter (\t -> isDigit t || t == '.') $ ctrlN+           noiseP = if null ctrlN then ""+                    else tail addit+       controlNoiseReduction $ '0':noiseP +       norm "_x.wav" +       if isPrefixOf "nx." file +         then putStr "" +         else renameFile "8_x.wav" file +       removeFile "x.wav" +       removeFile "_x.wav" +       dir <- listDirectory "." +       let paths4 = filter (isPrefixOf "nx.") dir+       mapM_ removeFile paths4 +       putStrLn "" +       return "") (do+         putStrLn "The process was not successful may be because of the not valid data. Please, specify the valid data as requested."+         putStrLn "_______________________________________________________________________"+         recAndProcess file 2)   | x == 3 = onException (do      putStr "Please, specify the octave number, to which you would like all the main components (not taking into account their respective lower pure quints) "      putStrLn "should belong. The number should be better in the range [1..8]"

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                dobutokO2-version:             0.5.2.0+version:             0.5.3.0 synopsis:            A program and a library to create experimental music from a mono audio and a Ukrainian text description:         It can also create a timbre for the notes homepage:            https://hackage.haskell.org/package/dobutokO2