Replacing SVG with base64 encoded html+img tag for svg, closes #187

ihaskell-display/ihaskell-charts/IHaskell/Display/Charts.hs

@@ -43,4 +43,6 @@ chartData renderable format = do
   imgData <- readFile $ fpFromString filename
   return $ case format of
     PNG -> png width height $ base64 imgData
-    SVG -> svg $ Char.unpack imgData
+    SVG -> html $ makeSvgImg $ base64 imgData
+  where
+    makeSvgImg base64data = Char.unpack $ "<img src=\"data:image/svg+xml;base64," ++ base64data ++ "\"/>"

src/IHaskell/Display.hs

@@ -3,7 +3,7 @@ module IHaskell.Display (
   IHaskellDisplay(..),
   plain, html, png, jpg, svg, latex,
   serializeDisplay,
-  Width, Height, Base64,
+  Width, Height, Base64(..),
   encode64, base64,
   Display(..),
   DisplayData(..),