mirrors/IHaskell
1
0
Fork 0
mirror of https://github.com/IHaskell/IHaskell.git synced 2025-04-19 12:56:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fixing #402; this may break 7.10 later, but for now 7.10 doesnt compile anyways

Browse Source
This commit is contained in:
Andrew Gibiansky 2015-03-05 09:46:50 -08:00
parent 8337a1db8e
commit b0bca8aeb7
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ihaskell-display/ihaskell-diagrams/IHaskell/Display/Diagrams.hs
View File

@ -12,13 +12,13 @@ import Diagrams.Backend.Cairo
import IHaskell.Display
instance IHaskellDisplay (QDiagram Cairo V2 Double Any) where
instance IHaskellDisplay (QDiagram Cairo R2 Any) where
display renderable = do
png <- diagramData renderable PNG
svg <- diagramData renderable SVG
return $ Display [png, svg]
diagramData :: Diagram Cairo -> OutputType -> IO DisplayData
diagramData :: Diagram Cairo R2 -> OutputType -> IO DisplayData
diagramData renderable format = do
switchToTmpDir
@ -31,7 +31,7 @@ diagramData renderable format = do
-- Write the image.
let filename = ".ihaskell-diagram." ++ extension format
renderCairo filename (mkHeight imgHeight) renderable
renderCairo filename (mkSizeSpec (Just imgWidth) (Just imgHeight)) renderable
-- Convert to base64.
imgData <- readFile $ fpFromString filename
@ -45,5 +45,5 @@ diagramData renderable format = do
extension PNG = "png"
-- Rendering hint.
diagram :: Diagram Cairo -> Diagram Cairo
diagram :: Diagram Cairo R2 -> Diagram Cairo R2
diagram = id