mmsyn7s 0.6.1.0 → 0.6.2.0

raw patch · 4 files changed

+10/−6 lines, 4 files

Files

• CHANGELOG.md +4/−0
• MMSyn7/Syllable.hs +3/−3
• MMSyn7s.hs +2/−2
• mmsyn7s.cabal +1/−1

@@ -55,3 +55,7 @@ ## 0.6.1.0 -- 2020-02-28  * Sixth version revised A. Fixed issue with the not being compiled because of the deprecated information in the mmsyn7s.cabal file.++## 0.6.2.0 -- 2020-02-28++* Sixth version revised B. Fixed issue with the not being compiled because of the wrong application of the function in the exceptRead function.

@@ -182,11 +182,11 @@ takeWithV (x:xs) = map show x takeWithV _ = [] --- | Function 'takeWordS' takes a number (which is its second argument) of the Ukrainian words and represents them as a list of list of 'String', each of which is a syllable.+-- | Function 'takeWordS' takes a number (which is its first argument) of the Ukrainian words and represents them as a list of list of 'String', each of which is a syllable. -- If the Ukrainian word being written down contains an apostrophe or a dash (hyphen) signs (or even both) then they are treated as separators for the distinguished words. -- This does not influence the syllable structure and so the poetic characteristics of the text.-takeWordS :: String -> Int -> [[String]]-takeWordS xs n = take n . syllablesUkr $ xs+takeWordS :: Int -> String -> [[String]]+takeWordS n xs = take n . syllablesUkr $ xs  -- | Function 'sylLengths' shows number of Ukrainian letters (except 'ь') in the syllables in the text needed to represent a sounding of the text, -- which was previously converted with 'syllablesUkr' function. If the syllable does not contain either sounds "дж" / "дз" or prolonged sounds then this number

@@ -107,7 +107,7 @@                  ; putStrLn "which shows what sound representations are needed to be created if every sound is unique; "                  ; putStrLn "      the other beginning is equivalent to the \"0\" behaviour."                   }-      "-v" -> putStrLn "mmsyn7s: version 0.6.1.0"+      "-v" -> putStrLn "mmsyn7s: version 0.6.2.0"       "-s" -> let ys = unwords . drop 1 $ texts in                 do { putStrLn $ "Uniqueness periods:                                                      " ++ (show . uniquenessPeriods $ ys)                    ; putStrLn $ "Possibly unique sounds representations density:                          " ++ (show . sndsDensity $ ys)@@ -130,7 +130,7 @@ printStatSyl :: String -> [String] -> IO () printStatSyl xs yss =   do { let m = read xs :: Int-           zss = takeWordS m . syllablesUkr $ yss+           zss = takeWordS m . syllablesUkr . unwords $ yss            tss = sylLengths zss           ; putStrLn $ "Syllables in the text:                                                   " ++ show zss      ; putStrLn "number of Ukrainian letters (except 'ь') in the syllables in the text "

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                mmsyn7s-version:             0.6.1.0+version:             0.6.2.0 synopsis:            Shows a sorted list of the Ukrainian sounds representations that can be used by mmsyn7 series of programs description:         A program and a library that show a sorted list of the Ukrainian sounds representations that can be used by mmsyn7 series of programs homepage:            https://hackage.haskell.org/package/mmsyn7s