chart: update for current Chart version

This commit is contained in:
Simon Michael 2010-11-26 19:22:47 +00:00
parent c6a85c4b88
commit b8e3306819
2 changed files with 2 additions and 4 deletions

View File

@ -7,7 +7,6 @@ Released under GPL version 3 or later.
module Hledger.Chart.Main
where
import Control.Monad (liftM3)
import Graphics.Rendering.Chart
import Data.Colour
import Data.Colour.Names
@ -22,9 +21,7 @@ import Prelude hiding (putStr, putStrLn)
import System.IO.UTF8 (putStr, putStrLn)
#endif
import Hledger.Cli.Commands
import Hledger.Cli.Options
import Hledger.Cli.Tests
import Hledger.Cli.Utils (withJournalDo)
import Hledger.Cli.Version (progversionstr, binaryfilename)
import Hledger.Data
@ -76,6 +73,7 @@ chart opts args j = do
t <- getCurrentLocalTime
let chart = genPie opts (optsToFilterSpec opts args t) j
renderableToPNGFile (toRenderable chart) w h filename
return ()
where
filename = getOption opts ChartOutput defchartoutput
(w,h) = parseSize $ getOption opts ChartSize defchartsize

View File

@ -46,5 +46,5 @@ executable hledger-chart
-- ,split == 0.1.*
-- ,time
-- ,utf8-string >= 0.3.5 && < 0.4
,Chart >= 0.11
,Chart >= 0.11 && < 0.15
,colour