mmsyn7ukr 0.15.0.0 → 0.15.1.0

raw patch · 4 files changed

+9/−7 lines, 4 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

Files

• ChangeLog.md +5/−0
• Control/Exception/FinalException.hs +2/−5
• Main.hs +1/−1
• mmsyn7ukr.cabal +1/−1

@@ -222,3 +222,8 @@ as the last symbol in the second command line argument a letter 's'. Fixed issue with inconsistent duration in the 'produceSound3' function and changed the parameter from 0.04 to 0.03. Fixed issue with wrong specifying second command line argument for further processing. Some minor code and documentation improvements.++## 0.15.1.0 -- 2020-02-21++* Fifteenth version revised A. Changed the Control.Exception.FinalException module so that the FinalException data is the exception and not+a signal of the given needed information.

@@ -26,7 +26,7 @@ import GHC.IO.Handle.Types (Newline( CRLF ), nativeNewline)  -- | Data type 'FinalException' is used to terminate the not needed further execution.-data FinalException = NeededInfoIsShown | ExecutableNotProperlyInstalled | MaybePartiallyTrimmed | NotCreatedWithEffect String+data FinalException = ExecutableNotProperlyInstalled | MaybePartiallyTrimmed | NotCreatedWithEffect String   | InitialFileNotChanged String | NotCreated String | NotRecorded String | NoiseProfileNotCreatedB String | NoiseProfileNotCreatedE String     | NotEnoughData String | NotCreatedWithEffects String | StrangeAnswer String String | NotFileNameGiven | DataFileNotClosed String        | DataSoundFileNotRead String | UndefinedFunction String@@ -35,7 +35,6 @@ instance Exception FinalException  instance Show FinalException where-  show NeededInfoIsShown = "NeededInfoIsShown: the program has given you the asked information." ++ (if nativeNewline == CRLF then "\r\n" else "\n")   show ExecutableNotProperlyInstalled = "ExecutableNotProperlyInstalled: SoX is not properly installed in your system. Please, install it properly and then call the function again." ++ (if nativeNewline == CRLF then "\r\n" else "\n")   show MaybePartiallyTrimmed = "MaybePartiallyTrimmed: The function did not create the needed file, but may be it trimmed the initial one (not enough)!"     ++ (if nativeNewline == CRLF then "\r\n" else "\n")@@ -65,6 +64,4 @@ catchEnd :: FinalException -> IO () catchEnd e = do   progName <- getProgName-  case e of-    NeededInfoIsShown -> catch (throw e) (\e0 -> hPutStr stdout (progName ++ ": " ++ show (e0 :: FinalException)))-    _                 -> catch (throw e) (\e0 -> hPutStr stderr (progName ++ ": " ++ show (e0 :: FinalException)))+  catch (throw e) (\e0 -> hPutStr stderr (progName ++ ": " ++ show (e0 :: FinalException)))

@@ -39,7 +39,7 @@        putStr "list-of-produced-sound-representations (if any) -- a list of sound representations, which the program will try to produce while being executed. "        putStrLn "The default one (if not specified) is a full range of needed sound representations. "     "-v" -> do-       putStrLn "mmsyn7ukr version: 0.15.0.0"+       putStrLn "mmsyn7ukr version: 0.15.1.0"     "-t" -> do        putStrLn "The program plays now a service sound for a 0.5 second. It uses just that duration for a pause before you can record a sound representation further."        path0 <- getDataFileName "y.wav"

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                mmsyn7ukr-version:             0.15.0.0+version:             0.15.1.0 synopsis:            A simple basic interface to some SoX functionality or to produce a voice that can be used by mmsyn7h description:         A program and a library that can be used as a simple basic interface to some SoX functionality or to produce your voice in Ukrainian (if you pronounce the sounds properly) represented by the separate sounds or something special like soft sign. homepage:            https://hackage.haskell.org/package/mmsyn7ukr