dobutokO-poetry 0.3.1.0 → 0.3.2.0

raw patch · 3 files changed

+9/−3 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• ChangeLog.md +4/−0
• DobutokO/Poetry.hs +4/−2
• dobutokO-poetry.cabal +1/−1

@@ -16,3 +16,7 @@ ## 0.3.1.0 -- 2020-06-02  * Third version revised A. Fixed issue with being printed also the second command line argument for the Main.main function.++## 0.3.2.0 -- 2020-06-02++* Third version revised B. Fixed issues with being not accurate printing.

@@ -162,7 +162,7 @@ uniqNPoetical :: Int -> V.Vector ([Int],Int,Int,Int,String) -> IO () uniqNPoetical n v   | n == 0 = return ()- | compare (V.length v) n == LT = print v+ | compare (V.length v) n == LT = V.mapM_ (\x -> putStrLn (filter (not . isPunctuation) . lastFrom5 $ x) >> print (fourFrom5 x) >> putStrLn "" ) v  | otherwise = (uniqInMaxPoetical v >>= uniqNPoetical (n - 1))  -- | The result of the recursive @n :: Int@ times application of the 'uniqInMaxPoetical' function. The norm given defines the way, in which the elements @@ -180,7 +180,9 @@  | n == 0 = return ()  | otherwise = do     let v = uniquenessVariantsG g xs-   if compare (V.length v) n == LT then print v else (uniqInMaxPoetical v >>= uniqNPoetical (n - 1))+   if compare (V.length v) n == LT +     then V.mapM_ (\x -> putStrLn (filter (not . isPunctuation) . lastFrom5 $ x) >> print (fourFrom5 x) >> putStrLn "" ) v +     else (uniqInMaxPoetical v >>= uniqNPoetical (n - 1))  -- | The result of the recursive @n :: Int@ times application of the 'uniqInMaxPoetical' function after the 'uniquenessVariantsG' application to the 'String'.  -- The norm given defines the way, in which the elements are considered the \"maximum\" ones.

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                dobutokO-poetry-version:             0.3.1.0+version:             0.3.2.0 synopsis:            Helps to order the 7 or less Ukrainian words to obtain somewhat suitable for poetry or music text description:         Helps to order the 7 or less Ukrainian words (or their concatenations) to obtain somewhat suitable for poetry or music text.