Skip to content

haskell-gargantext
haskell-gargantext
Commit 117f7ff2 authored by Nicolas Pouillard's avatar Nicolas Pouillard
Browse files
Options

Fix Issue #36: workaround circular definition of ToSchema BSResponse

parent 74baff14
Pipeline #1098 failed with stage
    Hide whitespace changes
    Inline Side-by-side
    Showing with 2 additions and 1 deletion
    src/Gargantext/API/Node/File.hs
    View file @ 117f7ff2
    ...@@ -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