Commit 117f7ff2 authored by Nicolas Pouillard's avatar Nicolas Pouillard

Fix Issue #36: workaround circular definition of ToSchema BSResponse

parent 74baff14
Pipeline #1098 failed with stage
...@@ -27,6 +27,7 @@ import Servant.Server.Internal ...@@ -27,6 +27,7 @@ import Servant.Server.Internal
import Gargantext.Prelude import Gargantext.Prelude
import qualified Gargantext.Prelude.Utils as GPU import qualified Gargantext.Prelude.Utils as GPU
import Gargantext.Core.Types (TODO)
import Gargantext.API.Admin.Orchestrator.Types (JobLog(..), AsyncJobs) import Gargantext.API.Admin.Orchestrator.Types (JobLog(..), AsyncJobs)
import Gargantext.API.Admin.Settings (HasSettings) import Gargantext.API.Admin.Settings (HasSettings)
import Gargantext.API.Node.Types import Gargantext.API.Node.Types
...@@ -65,7 +66,7 @@ newtype BSResponse = BSResponse BS.ByteString ...@@ -65,7 +66,7 @@ newtype BSResponse = BSResponse BS.ByteString
deriving (Generic) deriving (Generic)
instance ToSchema BSResponse where instance ToSchema BSResponse where
declareNamedSchema _ = declareNamedSchema (Proxy :: Proxy BSResponse) declareNamedSchema _ = declareNamedSchema (Proxy :: Proxy TODO)
fileDownload :: (HasSettings env, FlowCmdM env err m) fileDownload :: (HasSettings env, FlowCmdM env err m)
=> UserId => UserId
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment