tttool 1.7.0.2 → 1.7.0.3
raw patch · 2 files changed
+13/−3 lines, 2 filesdep ~optparse-applicative
Dependency ranges changed: optparse-applicative
Files
- src/TextToSpeech.hs +10/−0
- tttool.cabal +3/−3
src/TextToSpeech.hs view
@@ -51,12 +51,22 @@ l = case lang of Language s -> s +say :: Language -> FilePath -> String -> (String, [String])+say lang tmp txt =+ ("say", ["-o", tmp, "--data-format=LEF32@8000", "-v", l, txt])+ where+ l = case lang of+ Language "en" -> "Alex"+ Language "de" -> "Anna"+ Language "fr" -> "Thomas"+ Language s -> error $ "No voice for language \"" ++ s ++ "\" known." engines :: FilePath -> Language -> FilePath -> String -> [(String, [String])] engines myDir l ft txt = [ pico l ft txt , espeak l ft txt , espeak_contrib myDir l ft txt+ , say l ft txt ] oggenc :: FilePath -> FilePath -> (String, [String])
tttool.cabal view
@@ -1,5 +1,5 @@ name: tttool-version: 1.7.0.2+version: 1.7.0.3 synopsis: Working with files for the Tiptoi® pen description: The Ravensburger Tiptoi® pen is programmed via special files. Their file format has been reverse engineered; this@@ -10,7 +10,7 @@ license-file: LICENSE author: Joachim Breitner maintainer: mail@joachim-breitner.de-copyright: 2013-2015 Joachim Breitner+copyright: 2013-2017 Joachim Breitner build-type: Simple extra-source-files: README.md cabal-version: >=1.10@@ -71,7 +71,7 @@ yaml == 0.8.*, HPDF >= 1.4.10 && < 1.5, split == 0.2.*,- optparse-applicative == 0.13.*,+ optparse-applicative >= 0.13 && < 0.15, spool == 0.1.*, zlib >= 0.5 && < 0.7, natural-sort >= 0.1 && < 0.2