Plot-ho-matic 0.9.0.9 → 0.9.0.10
raw patch · 3 files changed
+13/−3 lines, 3 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- CHANGELOG.md +4/−0
- Plot-ho-matic.cabal +1/−1
- src/PlotHo/GraphWidget.hs +8/−2
CHANGELOG.md view
@@ -1,3 +1,7 @@+0.9.0.10+---+* Fix a nasty space leak+ 0.9.0.9 --- * Add option to remember the min/max ranges past the view window
Plot-ho-matic.cabal view
@@ -1,5 +1,5 @@ name: Plot-ho-matic-version: 0.9.0.9+version: 0.9.0.10 synopsis: Real-time line plotter for generic data license: BSD3 license-file: LICENSE
src/PlotHo/GraphWidget.hs view
@@ -79,9 +79,15 @@ let f :: ((Double, Double), (Double, Double)) -> (Double, Double) -> ((Double, Double), (Double, Double)) f ((minX, maxX), (minY, maxY)) (x, y) =- ( (min minX x, max maxX x)- , (min minY y, max maxY y)+ newMinX `seq` newMaxX `seq` newMinY `seq` newMaxY `seq`+ ( (newMinX, newMaxX)+ , (newMinY, newMaxY) )+ where+ newMinX = min minX x+ newMaxX = max maxX x+ newMinY = min minY y+ newMaxY = max maxY y pcs :: [(Double, Double)] pcs = concatMap (concat . snd) namePcs