mmsyn6ukr-array 0.3.2.0 → 0.3.3.0

raw patch · 3 files changed

+9/−5 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• ChangeLog.md +4/−0
• Melodics/Ukrainian/Arr.hs +4/−4
• mmsyn6ukr-array.cabal +1/−1

@@ -32,3 +32,7 @@  * Third version revised B. Updated the dependency boundaries to support the newer GHC-9.* series. +## 0.3.3.0 -- 2022-08-15++* Third version revised C. Some code improvements, updated the obsoleted parts in function definitions.+

@@ -3,7 +3,7 @@  -- | -- Module      :  Melodics.Ukrainian.Arr--- Copyright   :  (c) OleksandrZhabenko 2019-2021+-- Copyright   :  (c) OleksandrZhabenko 2019-2022 -- License     :  MIT -- Maintainer  :  olexandr543@yahoo.com --@@ -47,7 +47,7 @@           closedHdl <- hIsClosed hdl           if closedHdl             then do-                   B.appendFile rs $ unsafeAt dataArray . getBFstLSorted' 0 [(-1,0),(1,1),(2,8),(3,17),(4,23),(5,11),(6,31),+                   B.appendFile rs $ unsafeAt dataArray . getBFstLSorted' 0 [(1,1),(2,8),(3,17),(4,23),(5,11),(6,31),                       (7,30),(8,7),(10,9),(15,2),(17,5),(19,32),(21,4),(23,6),(25,10),(27,12),(28,14),(30,15),(32,16),                         (34,19),(36,3),(38,26),(39,28),(41,29),(43,24),(45,13),(47,18),(49,20),(50,22),(52,25),(54,21),                           (66,27)] $ u@@ -62,11 +62,11 @@ convertToProperUkrainian xs = new2OldRepresentation . convertToProperUkrainianI8 $ xs   where new2OldRepresentation :: FlowSound -> [String]         new2OldRepresentation ys = map f $ ys-          where f = getBFstLSorted' "" [(-1,"-"),(1,"\1072"),(2,"\1077"),(3,"\1086"),(4,"\1091"),(5,"\1080"),(6,"\1110"),+          where f = getBFstLSorted' "" [(1,"\1072"),(2,"\1077"),(3,"\1086"),(4,"\1091"),(5,"\1080"),(6,"\1110"),                       (7,"\1100"),(8,"\1076\1079"),(10,"\1078"),(15,"\1073"),(17,"\1076"),(19,"\1169"),(21,"\1075"),                         (23,"\1076\1078"),(25,"\1079"),(27,"\1081"),(28,"\1083"),(30,"\1084"),(32,"\1085"),(34,"\1088"),                           (36,"\1074"),(38,"\1094"),(39,"\1095"),(41,"\1096"),(43,"\1092"),(45,"\1082"),(47,"\1087"),-                            (49,"\1089"),(50,"\1090"),(52,"\1093"),(54,"\1089\1100"),(66,"\1094\1100")]+                            (49,"\1089"),(50,"\1090"),(52,"\1093"),(54,"\1089\1100"),(66,"\1094\1100"),(101,"-")]  isUkrainian :: Char -> Bool isUkrainian = isUkrainianL

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                mmsyn6ukr-array-version:             0.3.2.0+version:             0.3.3.0 synopsis:            A musical instrument synthesizer or a tool for Ukrainian language listening description:         A program can be used as a musical instrument synthesizer or for Ukrainian speech synthesis especially for poets and writers. Uses arrays and .ul RAW sound file formats and SoX inside. Since the 0.2.0.0 version it supports reading from the file and multiline input. homepage:            https://hackage.haskell.org/package/mmsyn6ukr-array