Skip to content

G
gargantext-ihaskell
Commit c9fd3dab authored by Tom McLaughlin's avatar Tom McLaughlin
Browse files
Options

Remove debugging prints

parent cb37ce4c
Hide whitespace changes
Inline Side-by-side
Showing with 0 additions and 6 deletions
ihaskell-display/ihaskell-diagrams/IHaskell/Display/Diagrams.hs
View file @ c9fd3dab
...@@ -20,7 +20,6 @@ instance IHaskellDisplay (QDiagram Cairo V2 Double Any) where ...@@ -20,7 +20,6 @@ instance IHaskellDisplay (QDiagram Cairo V2 Double Any) where
diagramData :: Diagram Cairo -> OutputType -> IO DisplayData diagramData :: Diagram Cairo -> OutputType -> IO DisplayData
diagramData renderable format = do diagramData renderable format = do
putStrLn "About to switch to tmp dir!"
switchToTmpDir switchToTmpDir
-- Compute width and height. -- Compute width and height.
...@@ -30,17 +29,12 @@ diagramData renderable format = do ...@@ -30,17 +29,12 @@ diagramData renderable format = do
imgHeight = 300 imgHeight = 300
imgWidth = aspect * imgHeight imgWidth = aspect * imgHeight
putStrLn "Going to do renderCairo!"
-- Write the image. -- Write the image.
let filename = ".ihaskell-diagram." ++ extension format let filename = ".ihaskell-diagram." ++ extension format
renderCairo filename (mkSizeSpec2D (Just imgWidth) (Just imgHeight)) renderable renderCairo filename (mkSizeSpec2D (Just imgWidth) (Just imgHeight)) renderable
putStrLn "Did renderCairo, about to readFile"
-- Convert to base64. -- Convert to base64.
imgData <- Char.readFile filename imgData <- Char.readFile filename
putStrLn "Did readFile"
let value = let value =
case format of case format of
PNG -> png (floor imgWidth) (floor imgHeight) $ base64 imgData PNG -> png (floor imgWidth) (floor imgHeight) $ base64 imgData
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment