[mail] some small refactoring
[gargantext.git] / src / Gargantext / API / Node / File.hs
index db74ab0bf577b7f46516dfe20eecfe0014924fc2..98fdead6301d50d68a48a9329737ae02f1038a8c 100644 (file)
@@ -3,6 +3,7 @@
 {-# LANGUAGE AllowAmbiguousTypes     #-}
 {-# LANGUAGE TypeOperators     #-}
 
+{-# LANGUAGE IncoherentInstances #-}
 module Gargantext.API.Node.File where
 
 import Control.Lens ((^.))
@@ -30,6 +31,7 @@ import Gargantext.Database.Query.Table.Node (getNodeWith)
 import Gargantext.Database.Query.Table.Node.UpdateOpaleye (updateHyperdata)
 import Gargantext.Database.Schema.Node (node_hyperdata)
 import Gargantext.Prelude
+import Data.Either
 
 data RESPONSE deriving Typeable
 
@@ -43,6 +45,9 @@ type FileApi = Summary "File download"
             :> "download"
             :> Get '[RESPONSE] (Headers '[Servant.Header "Content-Type" Text] BSResponse)
 
+instance MimeUnrender RESPONSE BSResponse where
+  mimeUnrender _ lbs = Right $ BSResponse (BSL.toStrict lbs)
+
 fileApi :: UserId -> NodeId -> GargServer FileApi
 fileApi uId nId = fileDownload uId nId