Read binary GIF files as ByteStrings

df38a542 · Manuel Gomez · e7a27b42 · df38a542
Commit df38a542 authored Jun 20, 2015 by Manuel Gomez
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

Animation.hs .../ihaskell-diagrams/IHaskell/Display/Diagrams/Animation.hs +2 -2

No files found.
--- a/ihaskell-display/ihaskell-diagrams/IHaskell/Display/Diagrams/Animation.hs
+++ b/ihaskell-display/ihaskell-diagrams/IHaskell/Display/Diagrams/Animation.hs
@@ -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