Merge pull request #277 from puffnfresh/master

Workaround changed API in Chart-cairo 1.3
This commit is contained in:
Andrew Gibiansky 2014-09-05 13:54:09 -07:00
commit c1e35a9124

View File

@ -1,4 +1,4 @@
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE NoImplicitPrelude, CPP #-}
module IHaskell.Display.Charts () where
import ClassyPrelude
@ -35,7 +35,13 @@ chartData renderable format = do
-- Write the PNG image.
let filename = ".ihaskell-chart.png"
opts = def{_fo_format = format, _fo_size = (width, height)}
renderableToFile opts renderable filename
toFile = renderableToFile opts
#if MIN_VERSION_Chart_cairo(1,3,0)
toFile filename renderable
#else
toFile renderable filename
#endif
-- Convert to base64.
imgData <- readFile $ fpFromString filename