mmsyn7ukr 0.1.0.0 → 0.1.1.0

raw patch · 3 files changed

+13/−9 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• ChangeLog.md +4/−0
• Main.hs +8/−8
• mmsyn7ukr.cabal +1/−1

@@ -3,3 +3,7 @@ ## 0.1.0.0 -- 2019-12-19  * First version. Released on an unsuspecting world.++## 0.1.1.0 -- 2019-12-19++* First version revised A. Fixed an issue with an empty do-block (mismatched code indentation).

@@ -167,13 +167,13 @@               withBinaryFile (nameSF ++ ".raw") AppendMode (appendS16LEFile (convertToProperUkrainian ys))             putStrLn "The .raw file was created by the program. It will be processed further. "             let ts = fromJust (showE "sox") in do-            _ <- readProcessWithExitCode ts ["r22050","-c1","-L","-esigned-integer","-b16", nameSF ++ ".raw", -              fst . snd . genControl . concat $ args, nameSF ++ (snd . snd . genControl . concat $ args)] ""-            removeFile $ nameSF ++ ".raw"-            putStrLn "Would you like to play the resulting file now?"-            pls <- getLine-            if take 1 pls == "y" || take 1 pls == "Y" -               then playA $ nameSF ++ (snd . snd . genControl . concat $ args)-               else return ())+              _ <- readProcessWithExitCode ts ["r22050","-c1","-L","-esigned-integer","-b16", nameSF ++ ".raw", +                fst . snd . genControl . concat $ args, nameSF ++ (snd . snd . genControl . concat $ args)] ""+              removeFile $ nameSF ++ ".raw"+              putStrLn "Would you like to play the resulting file now?"+              pls <- getLine+              if take 1 pls == "y" || take 1 pls == "Y" +                then playA $ nameSF ++ (snd . snd . genControl . concat $ args)+                else return ())                          

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                mmsyn7ukr-version:             0.1.0.0+version:             0.1.1.0 synopsis:            A simple basic interface to some SoX functionality or the approximately Ukrainian speech synthesizer with your own recorded voice. description:         A program and a library that can be used as a simple basic interface to some SoX functionality or for producing the approximately Ukrainian speech with your own recorded voice. homepage:            https://hackage.haskell.org/package/mmsyn7ukr