mmsyn7h 0.6.1.0 → 0.6.2.0

raw patch · 3 files changed

+13/−13 lines, 3 filesdep ~mmsyn7ukrPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: mmsyn7ukr

API changes (from Hackage documentation)

Files

• ChangeLog.md +3/−0
• MMSyn7h.hs +7/−10
• mmsyn7h.cabal +3/−3

@@ -73,3 +73,6 @@  * Sixth version revised B. Fixed an issue with being not compiled dependency mmsyn7ukr for GHC 7.8.4. +## 0.6.2.0 -- 2020-01-28++* Sixth version revised C. Changed the imported modules and dependency bounds.

@@ -12,7 +12,6 @@  module MMSyn7h where -import Control.Concurrent (myThreadId) import Data.Char (isSpace, isControl) import Data.Maybe (isJust, fromJust) import System.IO@@ -29,7 +28,7 @@ import CaseBi (getBFst') import System.Info (os) import MMSyn7s (show7s)-import Processing_mmsyn7ukr (SuccessfulEndOfInfo, catchEnd)+import FinalException  -- | Function that proposes and creates if accepted the sound record with the new \"voice\". It plays the newly created file once. Then it can delete  -- the sound files in the current directory while being executed if the entered text starts with \"0\". If you enter as a first command line argument \"-h\",@@ -53,14 +52,12 @@           putStrLn "mmsyn7h -v"           putStr "If \"-h\" is specified, then you will see this message. If \"-v\" is specified, then you will see the version of the package mmsyn7h. "           putStrLn "If something else is specified then the program runs further. "-          threadId <- myThreadId-          catchEnd threadId+          catchEnd NeededInfoIsShown           let nameSF = ""           return (args, nameSF)     "-v" -> do-          putStrLn "mmsyn7h version: 0.6.0.1"-          threadId <- myThreadId-          catchEnd threadId+          putStrLn "mmsyn7h version: 0.6.2.0"+          catchEnd NeededInfoIsShown           let nameSF = ""           return (args, nameSF)     nameOfSoundFile    -> do@@ -107,7 +104,7 @@                                then do                                  _ <- readProcessWithExitCode (fromJust . showE $ "play") [nameSF ++ snd ws] ""                                  return ()-                               else error "SoX play is not installed properly in the system. Please, install it properly and execute the program again."+                               else catchEnd ExecutableNotProperlyInstalled                 else do                    putStrLn ""                   putStr "The resulting file will be played just after it is created by the program. To remove all the created sound files from the directory, "@@ -133,7 +130,7 @@                                then do                                  _ <- readProcessWithExitCode (fromJust . showE $ "play") [nameSF ++ snd ws] ""                                  cleanCreatedSoundFs-                               else error "SoX play is not installed properly in the system. Please, install it properly and execute the program again."+                               else catchEnd ExecutableNotProperlyInstalled                   else do                      let ws = snd . genControl . concat $ arg                         ys = take (nSymbols (if null arg then [] else fst . genControl . head $ arg)) xs@@ -152,7 +149,7 @@                                then do                                  _ <- readProcessWithExitCode (fromJust . showE $ "play") [nameSF ++ snd ws] ""                                  cleanCreatedSoundFs-                               else error "SoX play is not installed properly in the system. Please, install it properly and execute the program again.")+                               else catchEnd ExecutableNotProperlyInstalled)  -- | The function that actually produces a .raw file. The mapping table is given in the @Map.txt@ file, but the sound duration differs. appendS16LEFile ::  V.Vector String -> Handle -> IO ()

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                mmsyn7h-version:             0.6.1.0+version:             0.6.2.0 synopsis:            Produces a sound recording specified by the Ukrainian text. description:         A program and a library that are used with mmsyn7ukr (or separately) and are similar to mmsyn6ukr executable. The program uses the data files in the current directory instead of ones in the system defined directories. It reads Ukrainian text with the given by data files sounds. homepage:            https://hackage.haskell.org/package/mmsyn7h@@ -20,7 +20,7 @@   exposed-modules:     MMSyn7h, Main   -- other-modules:   -- other-extensions:-  build-depends:       base >=4.7 && <4.14, process >=1.4 && <1.8, vector >=0.11 && <0.14, bytestring >=0.10 && < 0.12, mmsyn2 >=0.1.7 && <1, directory >=1.2.5 && <1.4, mmsyn6ukr >=0.6.2 && <1, mmsyn3 >=0.1.4 && <1, mmsyn7s >=0.1 && <1, mmsyn7ukr >=0.9.3 && <1+  build-depends:       base >=4.7 && <4.14, process >=1.4 && <1.8, vector >=0.11 && <0.14, bytestring >=0.10 && < 0.12, mmsyn2 >=0.1.7 && <1, directory >=1.2.5 && <1.4, mmsyn6ukr >=0.6.2 && <1, mmsyn3 >=0.1.4 && <1, mmsyn7s >=0.1 && <1, mmsyn7ukr >=0.10 && <1   -- hs-source-dirs:   default-language:    Haskell2010 @@ -29,7 +29,7 @@   main-is:             Main.hs   -- other-modules:   -- other-extensions:-  build-depends:       base >=4.7 && <4.14, process >=1.4 && <1.8, vector >=0.11 && <0.14, bytestring >=0.10 && <0.12, mmsyn2 >=0.1.7 && <1, directory >=1.2.5 && <1.4, mmsyn6ukr >=0.6.2 && <1, mmsyn3 >=0.1.4 && <1, mmsyn7s >=0.1 && <1, mmsyn7ukr >=0.9.3 && <1+  build-depends:       base >=4.7 && <4.14, process >=1.4 && <1.8, vector >=0.11 && <0.14, bytestring >=0.10 && <0.12, mmsyn2 >=0.1.7 && <1, directory >=1.2.5 && <1.4, mmsyn6ukr >=0.6.2 && <1, mmsyn3 >=0.1.4 && <1, mmsyn7s >=0.1 && <1, mmsyn7ukr >=0.10 && <1   ghc-options:         -threaded     -- hs-source-dirs:   default-language:    Haskell2010