instance Accept SVG where
contentType _ = "SVG" // "image/svg+xml" /: ("charset", "utf-8")
-instance Show a => MimeRender PlainText a where
- mimeRender _ val = cs ("" <> show val)
+--instance Show a => MimeRender PlainText a where
+-- mimeRender _ val = cs ("" <> show val)
instance MimeRender SVG SVG where
mimeRender _ (SVG s) = DBL.fromStrict s