mmsyn7h 0.6.2.0 → 0.7.0.0
raw patch · 4 files changed
+16/−13 lines, 4 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- ChangeLog.md +5/−0
- MMSyn7h.hs +9/−12
- Main.hs +1/−0
- mmsyn7h.cabal +1/−1
ChangeLog.md view
@@ -76,3 +76,8 @@ ## 0.6.2.0 -- 2020-01-28 * Sixth version revised C. Changed the imported modules and dependency bounds.++## 0.7.0.0 -- 2020-01-28++* Seventh version. Changed the behaviour of the mmsyn7h function. Fixed issues with program being executed further after the giving the needed information.+Some minor documentation improvements.
MMSyn7h.hs view
@@ -3,6 +3,7 @@ -- Copyright : (c) OleksandrZhabenko 2019-2020 -- License : MIT --+-- Stability : Experimental -- Maintainer : olexandr543@yahoo.com -- -- An additional program that is used with the mmsyn7ukr executable as a sound creator with the voice@@ -32,14 +33,14 @@ -- | 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\",--- then the program prints informational message and is terminated (killed) successfully. If you specify as a first command line argument \"-v\", then--- the program prints its version number and is also successfully terminated. If you specify something else, the first command line argument is being treated as+-- then the program prints informational message and is terminated successfully (but with exception). If you specify as a first command line argument \"-v\", then+-- the program prints its version number and is also successfully terminated (with the same exception). If you specify something else, the first command line argument is being treated as -- a name for the resulting file voiced. If you specify further command line arguments -- as a Ukrainian text, that contains only those sounds, which sound representations are in the current directory (you can create them by e. g. @mmsyn7ukr@ and @mmsyn7l@ -- programs in the same name packages), then the program will use only these sounds representations additionally to the default ones \"-.wav\", -- \"0.wav\" and \"1.wav\" and produce the sounding for the text. main7h :: IO ()-main7h = bracketOnError (do+main7h = do args <- getArgs putStr "If you do not use the command line parameters \"-h\" or \"-v\", then you must have specified the file name for the resulting sound recording " putStrLn "(do NOT use '}' character and space or control characters!). "@@ -47,20 +48,16 @@ "" -> error "Please, specify as a command line argument at least a name of the resulting file (without its extension)! " "-h" -> do putStrLn "SYNOPSIS: "- putStrLn "mmsyn7h fileName [control parameter (see: genControl from mmsyn6ukr package)] [a Ukrainian text being one line to be voiced] OR"+ putStrLn "mmsyn7h fileName [control parameter (see: genControl from mmsyn6ukr package) [a Ukrainian text being one line to be voiced (if any specified)]] OR" putStrLn "mmsyn7h -h OR" 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. "+ putStrLn "If something else (not null) is specified then the program runs further. " catchEnd NeededInfoIsShown- let nameSF = ""- return (args, nameSF) "-v" -> do- putStrLn "mmsyn7h version: 0.6.2.0"+ putStrLn "mmsyn7h version: 0.7.0.0" catchEnd NeededInfoIsShown- let nameSF = ""- return (args, nameSF)- nameOfSoundFile -> do+ nameOfSoundFile -> bracketOnError (do dir <- getCurrentDirectory putStrLn "You are now in the directory: " putStrLn $ show dir@@ -77,7 +74,7 @@ let nameSF = filter (\x -> not (isSpace x) && not (isControl x) && x /= '}') nameOfSoundFile putStrLn "" return (args, nameSF)) (\(args, nameSF) -> do- putStr "Notice, there was (may be) CmdLineArgument exception. To avoid it, please, specify the command line argument (if needed) in the form \"ABC\""+ putStr "Notice, there was (may be) CmdLineArgument exception. To avoid it, please, specify the second command line argument (if needed) in the form \"ABC\"" putStrLn $ " where A is either a letter \'f\', \'o\', \'w\' or a digit and B and C are both digits! The exception (may be) arose from the command line arguments " ++ show args ++ " for the file: " ++ show nameSF ++ ". Please, check also whether the SoX was installed with the support for needed codec.") (\(args, nameSF) -> do let arg = drop 1 . take 2 $ args
Main.hs view
@@ -3,6 +3,7 @@ -- Copyright : (c) OleksandrZhabenko 2019-2020 -- License : MIT --+-- Stability : Experimental -- Maintainer : olexandr543@yahoo.com -- -- An additional program that is used with the mmsyn7ukr executable as a sound creator with the voice
mmsyn7h.cabal view
@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/ name: mmsyn7h-version: 0.6.2.0+version: 0.7.0.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