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

Remove debugging prints

Browse Source
This commit is contained in:
Tom McLaughlin 2015-10-26 11:56:02 -07:00
parent cb37ce4cb5
commit c9fd3dab95
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -20,7 +20,6 @@ instance IHaskellDisplay (QDiagram Cairo V2 Double Any) where
diagramData :: Diagram Cairo -> OutputType -> IO DisplayData
diagramData renderable format = do
putStrLn "About to switch to tmp dir!"
switchToTmpDir
-- Compute width and height.
@ -30,17 +29,12 @@ diagramData renderable format = do
imgHeight = 300
imgWidth = aspect * imgHeight
putStrLn "Going to do renderCairo!"
-- Write the image.
let filename = ".ihaskell-diagram." ++ extension format
renderCairo filename (mkSizeSpec2D (Just imgWidth) (Just imgHeight)) renderable
putStrLn "Did renderCairo, about to readFile"
-- Convert to base64.
imgData <- Char.readFile filename
putStrLn "Did readFile"
let value =
case format of
PNG -> png (floor imgWidth) (floor imgHeight) $ base64 imgData