packages feed

phonetic-languages-simplified-generalized-properties-array 0.1.0.0 → 0.1.0.1

raw patch · 3 files changed

+10/−6 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

ChangeLog.md view
@@ -3,3 +3,7 @@ ## 0.1.0.0 -- 2021-05-04  * First version. Released on an unsuspecting world. ++## 0.1.0.1 -- 2021-05-06++* First version revised A. Some code improvements.
Phonetic/Languages/Array/General/PropertiesFuncRepG2.hs view
@@ -49,7 +49,7 @@ import Data.Phonetic.Languages.Base import Data.Phonetic.Languages.Syllables hiding (D) import Data.Maybe (fromMaybe,mapMaybe)---import Text.Read (readMaybe)+import Data.Monoid (mappend)  #ifdef __GLASGOW_HASKELL__ #if __GLASGOW_HASKELL__==708@@ -102,8 +102,8 @@   -> ([[[PRS]]] -> [[Double]])   -> Coeffs2   -> FuncRep2 String Double c-procB2FG wrs ks arr gs us vs h1 h g coeffs = D (\xs -> let ys = map char . stringToXG wrs . map (\x -> if x == '-' then ' ' else x) $ xs in-  ((int2Double . fromEnum . diverse2GL (' ':us ++ vs) $ ys)*(h1 . mconcat . g . map (divVwls . reSyllableCntnts ks gs . groupSnds .+procB2FG wrs ks arr gs us vs h1 h g coeffs = let zs = ' ':us `mappend` vs in D (\xs -> let ys = map char . stringToXG wrs . map (\x -> if x == '-' then ' ' else x) $ xs in+  ((int2Double . fromEnum . diverse2GL zs $ ys)*(h1 . mconcat . g . map (divVwls . reSyllableCntnts ks gs . groupSnds .     str2PRSs arr) . words1 . mapMaybe (f us vs) $ ys))) h {-# INLINE procB2FG #-} @@ -148,9 +148,9 @@   -> ([[[PRS]]] -> [[Double]])   -> Coeffs2   -> FuncRep2 String Double c-procB2InvFG wrs ks arr gs us vs h1 h g coeffs = D (\xs ->+procB2InvFG wrs ks arr gs us vs h1 h g coeffs = let zs = ' ':us `mappend` vs in D (\xs ->   let !ys = map char . stringToXG wrs . map (\x -> if x == '-' then ' ' else x) $ xs-      !z = diverse2GL (' ':us ++ vs) ys in if z == 0 then  (h1 . mconcat . g . map (divVwls . reSyllableCntnts ks gs . groupSnds .+      !z = diverse2GL zs ys in if z == 0 then  (h1 . mconcat . g . map (divVwls . reSyllableCntnts ks gs . groupSnds .          str2PRSs arr) . words1 . mapMaybe (f us vs) $ ys) ** 2.0         else  ((h1 . mconcat . g . map (divVwls . reSyllableCntnts ks gs . groupSnds . str2PRSs arr) . words1 .           mapMaybe (f us vs) $ ys) / (int2Double . fromEnum $ z))) h
phonetic-languages-simplified-generalized-properties-array.cabal view
@@ -3,7 +3,7 @@ -- http://haskell.org/cabal/users-guide/  name:                phonetic-languages-simplified-generalized-properties-array-version:             0.1.0.0+version:             0.1.0.1 synopsis:            Generalization of the functionality of the phonetic-languages-simplified-properties-array. description:         Is intended to be used with the general phonetic languages approach.  homepage:            https://hackage.haskell.org/package/phonetic-languages-simplified-generalized-properties-array