string-interpreter 0.5.4.0 → 0.5.4.1

raw patch · 3 files changed

+6/−3 lines, 3 files

Files

• ChangeLog.md +4/−1
• Interpreter/StringConversion.hs +1/−1
• string-interpreter.cabal +1/−1

@@ -36,5 +36,8 @@  ## 0.5.4.0 -- 2021-10-09 -* Fifth version revised C. Changed the behaviour so that it can handle lines with more than 9 words.+* Fifth version revised D. Changed the behaviour so that it can handle lines with more than 9 words. +## 0.5.4.1 -- 2021-10-09++* Fifth version revised E. Fixed incompleteness of the previous fixing.

@@ -38,7 +38,7 @@                           kss = drop 1 tss in                             if null wss then twoWords `mappend` (' ':unwords kss)                             else unwords wss `mappend` (' ':twoWords) `mappend` (' ':unwords kss)- | length (filter (\t -> t >= '1' && [t] <= show (length . words $ xs)) $ contrs) < 2 = xs+ | length (filter (\t -> if (length . words $ xs) >= 10 then t >= '1' && t <= '9' else t >= '1' && [t] <= show (length . words $ xs)) $ contrs) < 2 = xs  | otherwise = let cntrs = filter (\t -> if (length . words $ xs) >= 10 then t >= '1' && t <= '9' else t >= '1' && [t] <= show (length . words $ xs)) $ contrs                    tss = words xs in                      case length cntrs of

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                string-interpreter-version:             0.5.4.0+version:             0.5.4.1 synopsis:            Is used in the phonetic languages approach (e. g. in the recursive mode). description:         A library that has commonly used functions for the phonetic-languages implementations that deals with String data. homepage:            https://hackage.haskell.org/package/string-interpreter