uniqueness-periods-vector-properties 0.5.0.0 → 0.5.1.0

raw patch · 3 files changed

+38/−4 lines, 3 filesdep ~mmsyn7sPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: mmsyn7s

API changes (from Hackage documentation)

Files

• ChangeLog.md +5/−0
• Languages/UniquenessPeriods/Vector/PropertiesFuncRep.hs +31/−2
• uniqueness-periods-vector-properties.cabal +2/−2

@@ -38,3 +38,8 @@ ## 0.5.0.0 -- 2020-10-09  * Fifth version. Added a new module Languages.UniquenessPeriods.Vector.PropertiesFuncRep. Added new dependencies to satisfy the new module dependencies.++## 0.5.1.0 -- 2020-10-09++* Fifth version revised A. Added a new function procDiverse2Ineg to the module Languages.UniquenessPeriods.Vector.PropertiesFuncRep. It can be used for minimum+ lookup.

@@ -9,8 +9,24 @@ -- and DobutokO.Poetry.Norms.Extended modules -- from the @dobutokO-poetry@ package. -module Languages.UniquenessPeriods.Vector.PropertiesFuncRep where+{-# LANGUAGE CPP #-} +module Languages.UniquenessPeriods.Vector.PropertiesFuncRep (+  -- * Functions with 'Int'+  procDiverse2I+  , procDiverse2Ineg+  -- * Functions with 'Float'+  , procDiverse2F+  , procRhythmicity23F+  , procBothF+) where++#ifdef __GLASGOW_HASKELL__+#if __GLASGOW_HASKELL__>=710+/* code that applies only to GHC 7.10.* and higher versions */+import GHC.Base (mconcat)+#endif+#endif import qualified Data.Vector as V import String.Languages.UniquenessPeriods.Vector import Languages.UniquenessPeriods.Vector.PropertiesSyllables@@ -20,11 +36,24 @@ import Languages.Phonetic.Ukrainian.PrepareText import GHC.Float (int2Float) import Melodics.Ukrainian (convertToProperUkrainian)+import MMSyn7.Syllable +#ifdef __GLASGOW_HASKELL__+#if __GLASGOW_HASKELL__==708+/* code that applies only to GHC 7.8.* */+mconcat = concat+#endif+#endif+ procDiverse2I :: FuncRep String (UniquenessGeneral2 Char) [Int] procDiverse2I = D2 (uniquenessPeriodsVector3 " 01-" . aux0 . convertToProperUkrainian) (justOneValue2Property . diverse2) {-# INLINE procDiverse2I #-} +-- | Can be used to find out the minimum element.+procDiverse2Ineg :: FuncRep String (UniquenessGeneral2 Char) [Int]+procDiverse2Ineg = D2 (uniquenessPeriodsVector3 " 01-" . aux0 . convertToProperUkrainian) (justOneValue2Property . negate . diverse2)+{-# INLINE procDiverse2Ineg #-}+ procDiverse2F :: FuncRep String (UniquenessGeneral2 Char) [Float] procDiverse2F = D2 (uniquenessPeriodsVector3 " 01-" . aux0 . convertToProperUkrainian) (justOneValue2Property . int2Float . diverse2) {-# INLINE procDiverse2F #-}@@ -34,5 +63,5 @@ {-# INLINE procRhythmicity23F #-}  procBothF :: FuncRep String (UniquenessGeneral2 Char) [Float]-procBothF = U1 (\xs -> [(int2Float . diverse2 . uniquenessPeriodsVector3 " 01-" . aux0 . convertToProperUkrainian $ xs)*(rhythmicity0 xs)])+procBothF = U1 (\xs -> let ys = convertToProperUkrainian xs in [(int2Float . diverse2 . uniquenessPeriodsVector3 " 01-" . aux0  $ ys)*(evalRhythmicity23 . mconcat . syllableDurations . map ( createSyllablesP . additionalF) . vecWords $ ys)]) {-# INLINE procBothF #-}

@@ -3,7 +3,7 @@ -- http://haskell.org/cabal/users-guide/  name:                uniqueness-periods-vector-properties-version:             0.5.0.0+version:             0.5.1.0 synopsis:            Metrices for the maximum element for the uniqueness-periods-vector packages family. description:         Metrices for the maximum element for the uniqueness-periods-vector packages family. Generalization of the DobutokO.Poetry.Norms and DobutokO.Poetry.Norms.Extended modules from dobutokO-poetry package. homepage:            https://hackage.haskell.org/package/uniqueness-periods-vector-properties@@ -22,6 +22,6 @@    -- other-modules:   other-extensions:    CPP, BangPatterns-  build-depends:       base >=4.7 && <4.15, vector >=0.11 && <0.14, uniqueness-periods-vector >=0.3 && <1, mmsyn7s >=0.9 && <1, phonetic-languages-rhythmicity >=0.1.0.1 && <1, uniqueness-periods-vector-common >=0.5 && <1, phonetic-languages-ukrainian >=0.2.3 && <1, mmsyn6ukr >=0.8.1 && <1+  build-depends:       base >=4.7 && <4.15, vector >=0.11 && <0.14, uniqueness-periods-vector >=0.3 && <1, mmsyn7s >=0.9.1 && <1, uniqueness-periods-vector-common >=0.5 && <1, phonetic-languages-ukrainian >=0.2.3 && <1, mmsyn6ukr >=0.8.1 && <1, phonetic-languages-rhythmicity >=0.1.0.1 && <1   -- hs-source-dirs:   default-language:    Haskell2010