dobutokO2 0.3.0.0 → 0.3.1.0

raw patch · 3 files changed

+7/−3 lines, 3 files

Files

• CHANGELOG.md +4/−0
• DobutokO/Sound.hs +2/−2
• dobutokO2.cabal +1/−1

@@ -12,3 +12,7 @@  * Third version. Added the opportunity to specify more parameters: additionally basic sound duration and the level of obertones influence the generated sounds. Fixed issues with possibly incorrect argument sending to the SoX executable. Some documentation and code improvements.++## 0.3.1.0 -- 2020-03-06++* Third version revised A. Fixed issues with not being compiled because of the ambiguous variables and wrong function application.

@@ -427,9 +427,9 @@      else let time1 = (read (filter (\z -> isDigit z || z == '.') $ time0)::Double) in           if compare time1 0.1 /= LT && compare time1 4.0 /= GT then return (showFFloat (Just 4) time1 $ show 0)           else let mantissa = time1 - (fromIntegral . truncate $ time1)-                   ceilP    = truncate time1 `rem` 4 in+                   ceilP    = (truncate time1::Int) `rem` 4 in                if ceilP == 0 then return ("0." ++ (showFFloat (Just 4) mantissa $ show 0))-               else return $ (showFFloat (Just 4) ceilP $ show 0) ++ "." ++ (showFFloat (Just 4) mantissa $ show 0)) (do+               else return $ show ceilP ++ "." ++ (showFFloat (Just 4) mantissa $ show 0)) (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 5)

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