[FEAT] Bulding phylo with graphviz
[gargantext.git] / src / Gargantext / Core / Viz / Phylo / Legacy / LegacyAPI.hs
index e54f89521560385d83d26b11cff80977f2500f0b..47ec102c77f5b1ed5fec4eee4a06d64bb09a4172 100644 (file)
@@ -39,6 +39,7 @@ import Gargantext.Core.Viz.LegacyPhylo
 import Gargantext.Core.Viz.Phylo.Legacy.LegacyMain
 -- import Gargantext.Core.Viz.Phylo.Example
 import Gargantext.Core.Types (TODO(..))
+import Data.Either
 
 ------------------------------------------------------------------------
 type PhyloAPI = Summary "Phylo API"
@@ -65,12 +66,15 @@ instance Show SVG where
 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
 
+instance MimeUnrender SVG SVG where
+   mimeUnrender _ lbs = Right $ SVG (DBL.toStrict lbs)
+
 ------------------------------------------------------------------------
 type GetPhylo =  QueryParam "listId"      ListId
               :> QueryParam "level"       Level