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

Merge pull request #517 from mgomezch/diagrams-binary-readfile

Browse Source 
Use readFile from ByteString to read binary files
This commit is contained in:
Andrew Gibiansky 2015-06-24 09:24:30 -04:00
commit 17d8064241
2 changed files with 5 additions and 5 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

@ -34,11 +34,11 @@ diagramData renderable format = do
renderCairo filename (mkSizeSpec2D (Just imgWidth) (Just imgHeight)) renderable
-- Convert to base64.
imgData <- readFile filename
imgData <- Char.readFile filename
let value =
case format of
PNG -> png (floor imgWidth) (floor imgHeight) $ base64 (Char.pack imgData)
SVG -> svg imgData
PNG -> png (floor imgWidth) (floor imgHeight) $ base64 imgData
SVG -> svg (Char.unpack imgData)
return value

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

@ -48,8 +48,8 @@ animationData renderable = do
mainRender (diagOpts, gifOpts) frameSet
-- Convert to ascii represented base64 encoding
imgData <- readFile filename
return . T.unpack . base64 . CBS.pack $ imgData
imgData <- CBS.readFile filename
return . T.unpack . base64 $ imgData
-- Rendering hint.
animation :: Animation Cairo V2 Double -> Animation Cairo V2 Double