mmsyn4 0.6.2.0 → 0.6.3.0

raw patch · 3 files changed

+13/−6 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• ChangeLog.md +4/−0
• MMSyn4.hs +8/−5
• mmsyn4.cabal +1/−1

@@ -80,3 +80,7 @@  * Sixth version revised B. Fixed issue with incorrectly defined fold that has led to incorrect some results. +## 0.6.3.0 -- 2020-12-16++* Sixth version revised C. Fixed another issue with incorrectly defined fold that has led to incorrect some results.+

@@ -29,6 +29,7 @@ import GHC.Arr import EndOfExe (showE) import Data.Maybe (isJust,fromJust)+import Data.Foldable (foldr)  #ifdef __GLASGOW_HASKELL__ #if __GLASGOW_HASKELL__==708@@ -98,11 +99,13 @@  parentCellContents :: Int -> Int -> Array Int [String] -> String parentCellContents n i arr- | n == 0 || i == 0 = []- | otherwise = (\(x,_,_) -> x) . foldlElems' f ([],0,n) . amap (!! (n - 1)) $ arr-     where f (e0,m,k) e-             | m < k && not (null e) = (e,m + 1,k)-             | otherwise = (e0,m + 1,k)+ | n == 0 = []+ | ll == 0 = []+ | otherwise = (\(x, _, _) -> x) . foldr f ([], 0, ll) . amap (!! (n - 1)) $ arr+     where ll = numElements arr - i - 1+           f e (e0, m, k)+             | m < k && not (null e) = (e, m + 1, k)+             | otherwise = (e0, m + 1, k)  -- | Change the lengths of element lists by dropping the last empty strings in every element. filterNeeded :: Array Int [String] -> Array Int [String]

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                mmsyn4-version:             0.6.2.0+version:             0.6.3.0 synopsis:            The "glue" between electronic tables and GraphViz description:         The program mmsyn4 converts a specially formated .csv file with a colon as a field separator obtained from the electronic table into a visualized by GraphViz graph. homepage:            https://hackage.haskell.org/package/mmsyn4