splot 0.1.14 → 0.1.15

raw patch · 2 files changed

+4/−2 lines, 2 files

Files

• Tools/StatePlot.hs +3/−1
• splot.cabal +1/−1

@@ -175,7 +175,9 @@   let parseTime s = fromMaybe (error $ "Invalid time: " ++ show s) . strptime (B.pack timeFormat) $ s   let outPNG = getArg "o" "" args   input <- B.getContents-  let events = parse parseTime `map` B.lines input+  let pruneLF b | not (B.null b) && (B.last b == '\r') = B.init b+                | otherwise                            = b+  let events = (parse parseTime . pruneLF) `map` B.lines input   let cmpTracks = case getArg "sort" "time"  args of { "time" -> comparing time ; "name" -> comparing track }   let expireTimeMs = read $ getArg "expire" "Infinity" args   let phantomColor = case getArg "phantom" "" args of { "" -> Nothing; c -> Just c }

@@ -1,5 +1,5 @@ Name: splot-Version: 0.1.14+Version: 0.1.15 License: BSD3 License-file: LICENSE Copyright: Eugene Kirpichov, 2010